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The  design  ano  implementation  of  an  extension 
to  the  BASIC  programming  language  for  use  on  a 
mi c roorocessor-based  system  has  been  described. 
The  i mp 1 emen t a t i on  is  comprised  of  two  subsystems^ 
a compiler  which  generates  code  for  a hypothetical 
zero”address  machine  and  a run-time  monitor  which 
interprets  this  code.  The  design  goals»  soJu* 
tionsf  and  recommendations  for  further  expansion 
of  the  system  have  been  presented.  The  system  was 
implemented  in  PL/M  for  use  in  a diskette-based 
env i ronment . 
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introduction 


The  Bepinnep's  All-Puroose  SynnboHc  Instruction  Code 
(Basic)  was  develooed  at  Dartmouth  College  to  provide  a sim- 
ple* interactive  language  for  casual  computer  users  with 
applications  in  scientific  computation  li]  . To  meet  this 
goal*  a limited  vocabulary  of  instructions  was  included  in 
the  original  definition  of  Basic.  There  was  no  concept  of 
data  typing  and  there  were  no  default  conditions  to  memor- 
ize. The  interactive  mode  provided  an  ideal  man/machine 
interface  for  creating  ana  debuaging  programs*  while  the 
features  of  the  language  were  well-suited  for  the  expression 
of  engineering  problems.  Since  this  tyoe  of  environment 
satisfied  the  needs  of  a wide  range  of  potential  computer 
users*  Basic  was  adapted  by  a number  of  universities  and 
commercial  firms.  In  particular,  timesharing  service 
bureaus  saw  the  potential  for  exoanded  computer  usage  among 
non-computer  specialists  by  Providing  its  customers  with  the 
Basic  language  tlO).  This  led  to  the  development  of  a 
number  of  dialects  of  Basic  and  to  many  extensions  which 
satisfied  specialized  users. 

As  the  use  of  Basic  increased  and  extensions  to  the 
language  proliferated*  the  need  for  standardization  became  a 
concern  among  computer  specialists  (Id).  This  concern  lea 

9 


to  support  multiple  users  by  making  the  interpreter  reenter 


to  the  formation,  in  197U,  of  committee  XiJ2  of  the  American 
National  Stanoards  Committee  Khich  was  taskea  with  develop- 
ing a standard  for  the  Rasic  orogramming  language.  The 
result  of  this  effort  was  the  Proposed  American  National 
Standards  Institute  (ANSI)  standard  for  'Minimal  Basic  (u). 
This  standard  establishes  a minimum  set  of  features  which 
should  be  included  in  the  i mo  1 emen t a f i on  of  a Basic  language 
processor,  While  the  standard  provides  arithmetic  and  very 
simole  string  processina  c an ab  i 1 i t i e s , it  does  not  consider 
the  more  extensive  features  which  led  to  the  need  for  stan- 
dardization in  the  first  place.  In  a recent  article  by 
Lientz  (‘f),  the  different  commercially  available  basic 
languaae  processors  were  comoared.  This  survey  indicated 
that  many  Basic  orocessors  tend  to  provide  similar  features 
and  include  extensive  facilities  beyond  those  in  the  ANSI 
standard  discussed  above. 

b.  TnE  USE  OF  BASIC  wITH  MICPOCOMPU TtP  SYSTEMS 

Basic  is  becoming  a widelv  used  microprocessor  applica- 
tion language.  Typical  of  the  many  commercially  available 
Basic  interpreters  is  the  Aitair  basic  (11.  Available  in 
UK,  BK,  and  1,?K  versions,  it  provides  extensions  which  allow 
string  and  file  Processing  and  a wide  range  of  predefined 
functions.  The  IBK  version  operates  in  conjunction  with  a 
floppy-disk  system. 

The  IBM  5100  Portable  computer  includes  the  Basic 
1 anguage  implemented  in  read-only  memory  15).  The  language 
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cunr/Mif  iop  1 invaop. 


Other  nneratinns  allow  console  and 


DPOviaes  strean'  rlata  files*  strino  inan  i ou  1 a t i on  including 
substring  ooerations*  matri*  ooerators,  and  nard-copy  out- 


Although  boff>  of  the  basic  language  processors  descriced 
above  include  powerful  extensions  to  t*^e  language*  they  have 


the  following  limitations.  First*  the  entire  source  program 
must  reside  in  memory  at  one  time.  This  limits  the  size  of 
programs  which  may  be  executed  and  thus  discourages  the  use 
of  remarks  and  indentation  to  show  structure.  Readability 
is  limited  oy  the  restriction  that  laentifiers  consist  of  a 
single  letter  or  a letter  and  a nymoer.  Finally*  it  is  oif- 
ficult  for  individuals  to  modify  the  system  to  support 
specific  applications  or  devices. 


C.  OBJtCllVES  OF  THE  8ASIC-E  LAfJGUAOE 


Basic-E  was  designed  to  Provide  all  the  arithmetic  pro- 
cessing features  of  the  proposed  standarg  tor  Basic  as  well 
as  extensions  and  enhancements  to  the  language.  Extensions 
include  multi-dimensional  arrays*  logical  operators  for 
numeric  duantities*  string  manipulation*  ang  seauential  ana 
random  access  to  disk  files.  In  addition*  hasic-£  retains 
the  flavor  of  Dartmouth  Basic  while  freeing  the  programmer 
from  many  of  the  original  limitations.  Such  enhancements 
include  imoroveo  control  structures  and  features  to  increase 
readability.  Basic-E  also  attempts  to  maintain  compatibil- 
ity with  existing  extensions  to  Basic  where  those  extensions 


seem  to  have  oeen  accepted  by  the  industry, 


. 


Similar  to  Altair  RasiC/  Basic"E  ooerates  in  conjunction 
with  a aisk  operating  system  and  requires  at  least  12K  bytes 
of  free  memory.  The  CP/M  monitor  control  program  131  was 
selected  as  the  resident  operating  system  because  of  its 
availability  on  a number  of  microcomputer  systems»  including 
those  at  the  Naval  Postgraduate  School.  CP/M  is  an  interac- 
tive»  single-user  system  providing  standard  I/O  functions 
and  supporting  a named  file  system  on  IB'^-compat  i b 1 e flexi- 
ble oisxs.  The  system  includes  a text  editor^  Dynamic 
debugger#  symbolic  assembler#  and  system  utilities. 

An  adaitional  goal  of  Basic-E  was  portability  to  other 
operating  systems  ana  bacxup  storage  devices  other  than  the 
I BM-c ompa t i D 1 e format  used  with  CP/M.  To  achieve  this  goal 
the  programs  were  written  with  a separated  1/0  system  in 
PL/M  16J # a widely  accepted  system  i mp 1 emen t a t i on  language 
for  6080  m i c r OP r oc esso r s . 

Basic-E  provided  a portable  and  expanaaole  Basic 
language  processing  system  incorporating  the  features  dis- 
cussed above.  Unlixe  many  existing  i mo  1 emen t a t i on s # Basic”E 
is  not  a ourely  interpretive  language.  A source  program  is 
compiled  to  pseudo  machine  code  for  the  hypothetical  basic-E 
machine.  This  code  is  then  executed  interpretively  by  the 
run-time  monitor.  This  approach  is  the  same  as  used  with 
Basic/M  [bl  an  implementation  of  Basic  with  features  similar 
to  the  proposed  ANSI  standard. 
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II.  language  specification 


In  the  following  section  the  Darfnouth  Basic  language 
will  be  revieweOf  followed  by  a discussion  of  features  of 
Basic-E  which  differ  from  the  ANSI  standara. 


A.  THE  PKOPOSED  STANDARD  FOR  BASIC 
1.  Dartmouth  Basic 

Dartmouth  Basic  is  a statement  oriented  language. 
Each  statement  consists  of  a line  number  and  a command. 
Data  are  either  real  numeric  or  character  string  and  no  dis- 
tinction is  made  between  tyoes  of  numeric  data.  An  identif- 
ier terminated  with  a dollar  sign  refers  to  a string  vari- 
able»  and  all  other  identifiers  reference  numeric  guanti- 
ties.  Identifiers  consist  of  one  letter  or  a letter  fol- 
lowed by  a number.  String  variables  consist  of  a single 
letter  followed  by  a oollar  sign.  Arithmetic  operations/ 
performed  on  numeric  data/  are  represented  by  the  infix 
operators  +/  -/  */  /»  and  t (exponentiation)  as  well  as  the 
prefix  operators  + and  -.  Both  data  types  may  be  compared 
using  the  infix  relational  operators  <»  <=/  >/  >=/  and  <> 
(not  egual).  One  ano  two  dimensional  arrays  are  supported. 
The  same  identifier  may  refer  to  a subscripted  and  unsub- 


scrioted  variable  in  the  same  program.  Further,  a dimension 
statement  is  not  needed  to  specify  a subscripted  variable  if 
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the  value  of  a suoscriot  ooes  not  exceed  10.  Finally^  a 
number  of  oredefined  functions  oerform  elementary  function 
evaluation. 


2.  The  ANSI  Standard 

The  oroDosed  ANSI  standard  incorporates  the  features 
of  Dartmouth  Basic  and  also  includes  the  following  state- 
ment s : 

ON  RANDOMIZE  DEF 
OPTION  STOP 

with  the  exception  of  the  OPTION  statements  most  existing 
Basic  implementations  include  all  of  the  features  described 
above.  The  OPTION  statement  is  used  to  specify  whether  the 
lower  bound  of  an  array  is  zero  or  one. 

Most  existing  Basic  i anguage  processors  go  well 
beyond  the  ANSI  standard  to  provide  file-handling  ability* 
formatted  output*  string  manipulation*  matrix  operations* 
and  a multitude  of  predefined  functions.  The  survey  by 
Lientz  IP)  documents  these  extensions  for  many  large  ang 
m i n i -compu t e r manu f ac t u r e • S * ang  for  a number  of  timesharing 
services. 

S.  FEATURES  OF  ThE  BASIC-E  LANGUAGE 

Basic-E  was  designed  to  maintain  compatibility  with  the 
proposed  standard  while  extending  the  language  to  incor- 
porate Such  features  as  string  processing  ana  disk  file 
access.  Enhancements  were  also  included  to  provide 
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additional  control 

structures 

and  increased 

r e adab i 1 i t y . 

I n 

this  section  the 

features  of 

Basic-E 

which 

do 

not  appear 

i n 

the  ANSI  standard 

will  be  di scussed. 

Append i X 

I i nc 1 udes 

a 

complete  aescription  of  the  language. 

1,  Aritnmetic  Processing 

Basic-E  extenceo  the  arithmetic  processing  by  sup- 
porting multiple  dimensional  arrays.  However#  all  arrays 
must  be  dimensioned  prior  to  use  and  the  same  identifier 
cannot  refer  to  both  a subscrioted  ang  un subsc r i p t ed  vari- 
able. 

Logical  operators  AND,  OR,  XOR  (exclusive  or),  ang 
NOT,  were  provided  for  numeric  variables.  The  operations 
are  performed  on  3?  bit  two's  complement  binary  representa- 
tion of  the  integer  portion  of  the  variable. 

User-oefined  functions  may  have  any  number  of  Param- 
eters including  zero.  The  function  must  be  defined  prior  to 
its  use  and,  while  it  may  pefgr  to  other  functions,  recur- 
sive references  are  not  permitted. 

2 . Readab i I i t y 

Readability  was  improved  by  allowing  variable  names 
of  any  length,  permitting  free  form  input  with  statement 
continuation,  and  by  not  reouirinq  all  statements  in  the 
program  to  be  labelled.  H i s t o r i c a 1 1 v , Basic  permitted  vari- 
able names  consisting  of  one  letter  or  one  letter  and  a 
number.  This  maxes  large  programs  difficult  to  understand 
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and  debug.  8asic-E  allows  variable  names  to  be  of  any 
length  but  only  the  first  31  characters  are  considered 
unique.  basic  traditionally  has  restricted  a statement  to 
one  line.  basic'E  provides  a backslant  (\)  as  a continua- 
tion character  thus  allowing  many  orogram  lines  to  appear  as 
one  statement  to  the  compiler. 

3.  Control  Structure 

The  control  Structures  included  in  standara  Basic 
consist  of  the  IF/  GOTO/  GOSU0  and  ON  statements. 
SasiC”E  increased  the  cower  of  the  IF  statement  by  providing 
an  optional  ELSE  clause  and  by  allowing  a statement  list  to 
following  the  TFiEN  anc  the  ELSE.  A statement  list  consists 
of  executable  statements  separated  bv  colons.  Any  execut- 
able statement  may  oe  included  in  the  list  with  the  excep- 
tion of  ano t her  IF. 

String  Processing 

Basic-E  contains  features  adeauate  for  general 
string  manipulation.  Strings  are  created  dynamically/  vary 
in  length  to  a maximum  of  ?S5  byteS/  and  may  be  subscripted. 
At  any  given  time/  a string  occupies  an  amount  of  storage 
eoual  to  its  actual  length  plus  one  byte.  The  predefined 
LEN  function  returns  the  current  length  of  a string.  All 
string  variables  and  string  array  elements  are  initialised 
null  strings  with  a length  of  sero.  Strings  may  be  created 
and  associated  with  a variable  using  the  replacement  opera- 
tor 1=)/  an  input  statement/  or  a P£Au  statement.  Strings 
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entered  from  the  console#  apoearinq  in  a data  statement#  or 
read  trom  a disk  file  may  oe  either  enclosed  in  quotation 
martcs  or  delimited  by  a comma.  Features  of  Basic-fc.  alloi^ 
concatenation  of  two  strinqs  to  form  a new  string#  compari- 
son of  strina  variables#  and  extraction  of  a string  seoment. 

Concatenation  of  two  string  variables  has  been 
accomplished  with  the  infix  operator  t.  The  new  string 
length  is  the  sum  of  the  lengths  of  the  Strings  being  con- 
catenated and  must  not  exceed  255.  Space  is  dynamically 
allocated  for  the  new  string  as  it  is  created. 

Strings  are  compared  with  the  same  relational  opera- 
tors used  for  numeric  data#  using  the  ASCII  collating 
sequence.  Two  strings  are  equal  if  and  only  if  the  strinqs 
have  the  same  length  and  contain  identical  characters. 

Substring  extraction  is  accomplished  using  three 
predefined  functions#  LEFT?(A$,n)#  R I GHT 5 ( A$ # n ) , and 
M 1 03)  ( A 5 , m , n ) . LEFTS  returns  the  string  consisting  of  the 
first  n characters  of  A$#  while  RIGHTS  returns  the  rightmost 
n characters  of  A$.  HID$  is  a general  substring  operator 
which  returns  the  n characters  of  AS  beginning  with  charac- 
ter Position  m. 

Other  predefined  functions  are  provided  to  facili" 
tate  processing  strinqs.  The  CHRS  function  converts  a 
numeric  quantity  to  a single  ASCII  character  while  STHS  con- 
verts a floating  point  number  in  internal  form  to  a string 
representing  its  value. 

1 7 


r 


User-defined  functions  may  contain  string  parameters 
and»  if  the  name  of  the  function  ends  in  a oollar  sign, 
returns  a string  guantity. 

5.  Files 

Data  may  oe  transferred  Oet-een  an  Basic-E  program 
and  external  devices  using  the  file  Processing  features  of 
the  language.  The  FILE  statement  ioentifies  files  and 
prepares  them  for  access.  The  general  form  of  a FILE  state- 
ment is; 

file  <file  name  list> 

where  the  file  name  is  a string  variable.  If  a file  exists 
on  the  host  file  system  with  the  name  represented  by  the 
current  value  of  the  string  variable  then  that  file  is 
opened.  Otherwise,  a file  is  createo  with  that  name.  Each 
file  is  assigneo  a numeric  identifier  which  is  used  for  all 
further  references  to  the  file.  An  optional  blocksize  may 
be  associated  with  the  file.  This  identifies  the  file  as  a 
direct  file  with  a specified  record  length.  Data  is 
transmitted  between  the  file  and  the  Basic-£  machine  using 
the  REAL)  and  PRINT  statements  with  the  file  option: 

READ  <file  option>  ; <read  list> 

PRINT  <file  OPtion>  { <expression  list> 

The  file  option  specifies  the  file  desired  by  referencing 
the  file  identifier.  An  optional  record  identifier  speci- 
fies the  record  desireo  when  random  access  is  used.  Access 
to  a file  may  be  terminated  by  the  CLOSE  statement. 
Further,  eno  of  file  processing  is  specified  with  the  IF  END 
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statement  which  has  the  following  form: 

IF  END  0 <file  iOentifier>  THEN  <label> 

Files  may  Oe  organized  as  either  seauential  or 
direct.  Sequential  files  are  a linear  sequence  of  data 
items  separated  by  commas  or  line  terminators.  Each  refer- 
ence to  a sequential  file  retrieves  the  next  data  item  or 
writes  another  data  item.  with  each  READ*  the  variables  in 
the  read  list  are  assigned  values  from  the  file.  Line  ter- 
minators are  treated  as  commas,  there  is  no  concept  of  a 
record  as  such.  Likewise,  with  each  PRINT,  values  from  the 
expression  list  are  writen  to  the  file.  The  expressions  are 
placed  in  the  file  as  ASCII  strings  separated  by  commas 
except  for  the  last  data  item  in  the  list  which  is  followed 
by  a line  terminator.  The  use  of  line  terminators  in  this 
manner  allow  files  to  be  displayed  using  system  utilities 
and  also  allows  files  created  with  a text  editor  to  be  read 
by  aasic-t  programs. 

A file  declared  with  a specified  blocksize  is  called 
a "direct  file"  and  is  made  up  of  fixed  length  records. 
Each  record  consists  of  a collection  of  data  items  separated 
by  commas.  Individual  records  have  line  terminators  as  the 
last  two  bytes  of  the  record.  Note  that  direct  files  may  be 
accessed  sequentially  or  randomly.  A READ  statement  with  no 
read  list  will  position  the  file  to  the  selected  record.  In 
particular: 

READ  « 1 . I ; 


will  rewind  the  file 


b 


C.  examples  OE  8ASIC-E  PPOGHAms 

Sample  Basic-E  programs  are 
which  are  intended  to  show 
described  above. 


presented  i n 

this 

section 

features  of 

the 

1 anquage 

1,  Fibonacci  Number  Generator 


remark  program  to  compute  the  first  N 
remark  FIBONACCI  NUMBERS 

print  "THIS  PROGRAM  COMPUTES  THE  FIRST  N" 

PRINT  "FIBONACCI  NUMBERS" 

print  "AN  input  of  0 terminates  the  program" 

FOR  I = 1 TO  1 STEP  0 REMARK  DO  THIS  FOREVER 
INPUT  "ENTER  THE  VALUE  OF  N”;  N 
IF  N = 0 THEN  \ 

PRINT  "PROGRAM  TERMINATES" 

STOP 

IF  N < 0 THEN  \ 

PRINT  "N  MUST  BE  POSITIVE.  ";  :\ 

PRINT  "PLEASE  REENTER"  \ 

ELSE  \ 

G0SU8  SOO  remark  CALCULATE  AND  PRINT  RESOLTS 

NEXT  1 

3U0  REMARK  SUBROUTINE  TO  CALCULATE  Fib  NUMBERS 

FI  = 1 ; F2  = 1 remark  INITIAL  VALUES 
NUM  = FI 

remark  HANDLE  FIRST  Tl«0  NUMBERS  (IF  REQ)  AS 
REMARK  special  CASES 

FOR  J = 1 TO  2 
GOSUB  400 
IF  N = 0 THEN  \ 

RETURN 

NEXT  J 

remark  handle  REMAINING  NUMBERS 

FUR  J = 1 TO  1 STEP  0 
NUM  = FI  + FB 
GOSUB  400 
F<?  = F 1 
F I = NUM 
IF  N = 0 THEN  \ 

RET  URN 


.A 


20 


7 


NtXT  J 
RhTU'JN 

^oo  remark  print  next  number  and 
remark  decrement  N 

PRINT  NUM,  REMARK  5 TO  A LINE 
N = N - 1 

return 

END 

2,  Label  Generating  Proaram 


REMARK  PROGRAM  BUILDS  A FILE  OF  MAILING  LABELS 
remark  from  a file  CONTAINING  100  BYTE  RECORDS 
remark  nhICH  CONTAIN  NAME  AND  ADDRESS  INFORMATION 

FILE  MASTER(IOO),  LABELS 
IF  END  # 1 THEN  luO 

FOR  INDEX  = 1 TO  1 STEP  0 REM  UNTIL  END  OF  FILL 

READ  # i;  FIRSTS,  LASTS,  STREETS,  CITYS,  STATES, ZIP 

remark  LINES  ARE  TRUNCATED  AT  60  CHARACTERS 

LINEIS  = LEFTS(FIRST$  + " " + LASTS, 60) 

LINE2S  = LEFT$(STREETS,60) 

remark  insure  zip  not  truncated 

LINEiS  = LEFTSCCITYS  + " , " ♦ STATES, 5U) 

LINE3S  = LINE3S  + " " f STPSCZIP) 

PRINT  n 2;  LINEIS 
PRINT  « 2;  LINE2S 
PRINT  tt  2;  LINE3S 
NEXT  INDEX 

100  PRINT  "JOB  COMPLETE" 

STOP 

END 


2\ 


III.  IMPLEMEfMTATION 

A.  SYSIEM  DESIGN 

The  Basic-E  system  is  comoriserj  of  two  subsystems/  the 
compiler  and  the  run-time  monitor.  The  compiler  includes  a 
t ao 1 e-or i yen  parser  which  checks  statements  for  correct  syn- 
tax and  generates  code  for  the  Basic~E  machine.  This  code 
is  executed  by  the  run  time  monitor.  The  simulated  machine 
is  a zero  address  stack  comcuter  which  performs  floating 
point  arithmetic  on  3<?  bit  numbers/  provides  variable  length 
string  manipulation,  and  accesses  seouential  ana  random  disk 
files. 

The  decision  to  compile  the  source  program  and  then 
interoret  the  intermeoiate  language  was  based  on  the  follow- 
ing considerations.  First/  formal  parsing  techniques  could 
be  used  to  analyze  the  syntax  of  the  source  program  making 
extensions  to  the  1 anguaoe  relatively  easy.  In  this  case  a 
LALK  parser-generator  (1^1  was  used  to  automatically  gen- 
erate the  parse  tables  for  the  language.  This  makes  exten- 
sions to  the  1 anguaqe  relatively  easy.  Secono/  the  entire 
source  program  does  not  reside  in  main  memory  auring  compi- 
lation. This  orovioes  toe  maximum  amount  of  scace  for  the 
symbol  table  and.  oerhaps  more  importantly/  does  not  oenal- 
ize  the  programmer  for  using  comments  and  descriptive  vari- 
able names.  Finally,  the  run-time  monitor  can  be  moaified 
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to  suPDort  multiple  users  by  making  the  interpreter  reenter- 
able at  the  eno  ot  each  basic-E  machine  cycle. 

There  are  a number  of  considerations  which  dictate 
interpreting  the  intermediate  language  instead  of  compiling 
the  source  program  to  S080  machine  code.  First*  the  major- 
ity of  execution  time  is  involved  in  evaluating  floating 
point  operations.  Since  this  would  be  implemented  as 
subroutine  calls  if  the  compiler  generated  machine  code*  the 
actual  decrease  in  execution  speed  due  to  the  interpreter  is 
very  small.  Secondly*  since  the  system*  with  the  exception 
of  the  floating  point  package*  is  written  in  PL/'^  it  is 
easily  transportable  to  another  microprocessor  which  sup- 
ports PL/M.  Extensive  rewriting  of  the  code  generation 
would  not  be  reouired. 

The  following  sections  discuss  the  design  of  the  basic”E 
machine  and  implementation  of  the  compiler  and  run-time  mon- 
itor. PL/M  source  listing  of  the  programs  are  attached  to 
this  r epo  r t . 

B.  The  BASIC-E  MACHINE 

1 . I nt  roduc  t i on 

The  flasic-E  machine  is  a software  simulation  of  a 
zero-address  s t ac k -p r oc es s i ng  computer*  tailored  to  execute 
Basic  programs.  It  is  modeled  after  the  AlGOL-E  machine 
(111.  The  BasiC“t  machine  provides  stack  manipulation 
operations  for  arithmetic  and  string  expression  evaluation* 
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2.  Bastc-E  'Machine  *^emopy 


The  Basic-E  p'achine  ■nemory  is  rlivided  into  a static 
section  and  a vanyina  section.  These  sections  are»  in  turn, 
divided  into  a nuirber  oT  logical  seqnents  as  shown  in  Figure 
1,  The  static  section  consists  of  mefrory  locations  which 
are  not  altered  during  orogram  execution.  The  following 
segments  make  uo  the  static  section  of  memory: 

a.  The  Floating-Point  Data  Area  (FDA).  The  floating- 
point data  area  is  used  to  store  numeric  constants 
defined  within  the  source  orogram.  Values  may  be 
loaded  directly  onto  the  stack  from  the  FDA. 

0.  The  Code  Area.  The  code  secment  consists  of  a 
sequence  of  Basic“E  machine  instructions#  where  each 
instruction  is  one  byte  in  length.  Certain  instruc- 
tions are  followed  by  one  or  two  bytes  of  data  which 
may  refer  to  the  PRT  described  below.  These  instruc- 
tions are  referred  to  as  literals  and  are  distinguished 


and  subroutine  linxaqe.  Other  operations  allow  console  and 
file  i nput /out  out » dynamic  storage  allocation  for  arrays  and 
a variety  of  predefined  functions.  The  Basic-E  memory  is 
divided  into  the  several  logical  segments  oescrioed  below, 
including  a free  storage  area#  which  is  dynamically  allo- 
cated by  the  run-time  monitor.  The  size  of  the  free  storage 
area  varies  with  the  available  space  on  the  host  system.  A 
IbK  System  operating  with  CP/V  provides  five  pages  (2B6  byte 
blocks)  of  memory  for  the  Basic-E  machine. 


FSA 

(Free  Storage  Area) 


STACK 


PRT 

(Program  Heference  Taole) 


DATA 


CODE 


varying 


STATIC 


(F 1 oat i ng 


FDA 

Point 


Data  Area) 


Figure  1 

Structure  of  t^e  N BASIC  '^acKine 
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from  regular  instructions  by  having  their  leftmost  bit 
set  to  one. 

c.  I he  Data  irea.  F 1 oat i ng-oo i n t and  string  constants 
defined  in  DATA  statements  are  maintained  in  this  sec- 
tion in  the  order  in  which  they  appear  in  the  source 
prog  ram. 

The  varying  section  consists  of  memory  locations  which  may 
be  altered  during  program  execution.  The  following  segments 
make  UP  this  section  of  memory; 

a.  The  Program  Reference  Table  (PRT).  The  PPT  stores 
the  values  of  unsubsc r i p t ed  floating-point  variaoles 
and  pointers  to  subscripted  f 1 oat i ng-oo i nt  variables 
ana  all  string  variables.  Values  may  oe  loaded 
directly  onto  the  stack  from  the  PRT  and  into  the  PPT 
f rom  the  stack. 

b.  The  Stack.  The  stack  is  used  durino  program  execu- 
tion to  evaluate  exoress i ons » hold  return  adoresses  for 
subroutine  calls»  ana  store  values  during  input/output 
operations.  Each  stack  element  is  four  cytes  wide. 
Numeric  auantities  are  placed  directly  on  the  stack  as 
32  bit  floating-point  numpers.  References  to  arrays 
are  stored  as  adoress  guatitities  occupying  the  first 
two  bytes  of  the  element.  Bytes  three  and  four  are  not 
used  in  this  case.  Strings  are  also  referenced  by 
address.  However,  in  the  case  of  a string,  byte  three 
of  the  stack  element  is  a f 1 aa  usea  to  indicate  whether 
this  string  is  a temporary  string  or  currently  assigned 
to  a variable  location  in  the  PRT.  This  is  necessary 
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1 
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to  ensure  that  strings  resulting  from  intermediate  cal- 
culations are  removed  from  the  PSA.  The  stack  is  a 
circular  Queue  which  will  hold  12  elements.  Therefore 
•it  cannot  owerflow  out  wraos  around»  overwriting 
itself. 

c.  The  Free  Storage  Area  (FSA),  The  FSA  consists  of 
the  remaining  memory  soace  allotted  by  the  host  system. 
It  is  used  to  dynamically  allocate  arrays#  string  vari- 
ables and  file  buffers.  Figure  2 shows  the  organi^a- 
tion  of  the  free  storage  area. 

5.  The  Basic-E  N’achine  Architecture 

The  Basic-E  machine  consists  of  the  memory  space 
descriced  above  alona  with  a set  of  registers  whose  func- 
tions are  given  below; 

a.  Hegister  C.  iTeaister  C»  the  orogram  counter#  con- 
tains the  address  of  the  next  executable  instruction. 

C.  heoister  0.  Register  D#  the  Data  Area  Pointer,  is 
used  to  reference  constants  in  the  Data  Area, 
c.  Register  S.  Reoister  S contains  the  address  of  the 
current  toe  of  the  stack. 

c.  Register  A.  Register  A is  a reference  to  the 
memory  location  addressee  by  reaister  S. 

d.  Register  B.  Register  b is  a reference  to  the  ele- 
ment on  the  stack  below  the  element  referenced  by 


reg i s t e r S 


a 


Oescriotion  of  Machine  Instructions 


The  8asic“E  machine  instructions  are  divided 
j into  the  following  categories:  literal  data  references, 

arithmetic  and  boolean  ooerators,  orogram  control  operators, 
string  operators,  stack  manipulation  operators  and  built-in 
functions.  All  instructions  consist  of  one  eight  bit  opera- 
tion code,  possibly  followed  by  one  or  two  bytes  of  data. 

i 

j Most  of  the  machine  instructions  will  be  described  using  tne 

followina  notation: 

a.  The  contents  of  a register  are  referenced  as  rX 
where  X is  register  A,  B,  C or  D. 

b.  The  symbol  :=  denotes  assignment.  For  example  rA  := 

rA  ♦ 1 indicates  that  the  contents  of  rA  are  incre- 

mented by  one.  ' 

c.  (rX)  denotes  the  byte  of  data  pointea  to  by  regis- 
ter X.  ((rX))  denotes  the  two  bytes  or  address  quan- 
tity pointed  to  by  register  X.  PRT(rX)  is  a reference 
to  the  PRT  cell  referenced  by  the  quantity  in  rX. 


d.  IX]  is  used  to  reference  the  string  addressed  by  X, 

e.  POP  is  defined  as  rS:=rS-l.  That  is,  the  top  ele- 
ment is  eliminated  from  the  stack.  Likewise,  PUSH  is 
defined  as  rS:=rS+l. 


b.  Literal  Data  References 


Literal  aata  references  are  used  to  place 
inteoer  constants  on  the  stack.  Literal  strinq  references 
place  the  address  of  a strinq  constant  on  the  stack.  A 
literal  data  reference  is  any  instruction  in  which  the  left- 
most bit  is  a one.  All  such  literals  occupy  two  bytes.  If 
. the  second  bit  from  the  left  is  a zero  (a  LIT),  the  remain- 

I ‘ ing  la  bits  are  placed  on  the  stack  as  an  address.  Such 

quantities  are  generatea  by  the  compiler  for  control  func- 
tions and  may  not  be  operated  upon  by  the  Basic-E  machine 

arithmetic  or  lonical  operators.  If  the  second  bit  from  the 

/ 

left  is  a 1 -(a  LID),  the  remaining  14  bits  refer  to  an  entry 
in  the  PRT  which  is  to  be  loaded  onto  the  stack.  A zero 
references  the  first  element  in  the  PPT , a one  references 
the  secong  element  ano  so  forth.  A literal  string  reference 
is  represented  by  the  ILS  machine  operator  followed  by  a one 
byte  binary  number  which  is  the  length  of  the  string  in 
bytes,  followed  directly  by  the  string  characters.  The  ILS 
operator  is  defined  as  follows: 

ILS  inline  strinq  PUSH.  PC1»  (rA);=rC; 

rC : =rC ♦ ( rC  ) 

I 

c.  Arithmetic  Operators 

I The  arithmetic  and  boolean  operators  are  listed 

below  along  with  their  co  r r e spond  i nq  actions: 

OHERAIIUN  UAME  ACTION 

PAD  floating  add  rP:=rH^rA;  POP.  PCI 
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FMI 

floating  minus 

rb:=rA-rb 

; POP.  PCI 

FMU 

floating  multiply 

rB  : = r A * rB 

; POP.  PCI 

FUI 

f 1 oa  t i ng  divide 

rt3:  = rA/rB 

. POP.  PCI 

EXP 

exponent i at i on 

rB;=rBtrA 

. POP.  PCI 

MEG 

floating  negat i on 

rA:=  -rA. 

POP.  PCI 

LSS 

floating  less  than 

if  rB<  r A 

then  rB : = - 1 

else  rB : = 

0.  POP.  PCI 

GTR 

floating  g rea  t e r 

if  rB>  r A 

then  rb:s  *1 

than 

else  r B : = 

0.  POP.  PCI 

EQU 

floating  eaua 1 

if  r B = r A 

then  rB:=  -1 

else  rB : = 

0.  POP.  PCI 

NEQ 

floating  uneoua 1 

if  r B<  > r A 

then  rB:=  -1 

else  rB : = 

0.  POP.  PCI 

LEO 

floating  less  than 

i f r0<=rA 

then  rB;=  -1 

or  equal 

else  r B : = 

0.  POP.  PCI 

GEQ 

f 1 oat i nq  great  er 

i f rB>=r A 

then  rB:=  -1 

than  or  eaua 1 

else  r B : = 

0.  POP.  PCI 

NUT 

logical  not 

rA:s  not 

rA.  PCI 

OH 

logical  or 

r B : = rB  OP 

rA.  POP.  PCI 

XOH 

exclusive  or 

rB:=rB  XOH  rA.  POP.  PCI 

d.  String  Operators 

String  operators  allow  comoarsion  and  concatena- 
t i on  of  variaple  length  stings.  Strings  aenerated  during 
orogran  execution  ar<»  placed  in  the  free  storage  area*  ai  n 
strings  are  alwavs  referenced  indirectly  by  placing  the 
address  on  the  stack.  Thp  string  operators  are  listed  below 
along  with  their  c O r r e srong i ng  actions: 
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OPERA  f ION 


NAME 


ACTION 


CAT 

cone  at  ena  t e 

Ir6)  ;=  IrBJ  ♦ [rA]  . POP. 

PCI 

SEQ 

string  eoua 1 

if  lrHl  = (rAJ 

then 

rB:=  - 

1 

else  rd;=  0. 

POP. 

PCI 

SNE 

s t r i ng  not  equa 1 

if  IrBloIrAl 

then 

rB;  = 

-1 

else  rB : = 0 . 

POP. 

PCI 

SLT 

string  Jess  than 

if  C r0 J < ( r A ] 

then 

rB  : = - 

1 

else  rB;=  0. 

POP. 

PCI 

SLE 

string  less  than 

if  ( rB) <=  I r A ) 

then 

rB;  = 

-1 

or  ecual 

else  r6:=  0. 

POP. 

PCI 

SGT 

string  greater 

if  [ r B 1 > I r A 1 

than 

r8:=  - 

1 

than 

else  r B : = 0 . 

POP  . 

PCI 

SGE 

string  greater 

if  CrBl>=[rA] 

than 

rB;r 

-1 

than  or  eaua 1 

else  rB:=  0. 

POP. 

PC  1 

e . 

Stack  Ooerators 

Stack  ooerations 

bring  elements  to  ana 

f rom 

the 

stack/  ana 

allow  manipulation 

of  rA  and  rB, 

These 

operators 

are  1 i s t e a 

below  with  a Oescriotion  of  their 

actions: 

OPERATION 

NAME 

ACTION 

CON 

load  constant 

The  two  bytes 

f 0 1 lowing 

the 

operator  are 

a reference 

t 0 

an  e 1 emen t i n 

t he 

FDA  which 

is  to  be  placed  on 

the 

stack.  PCI  ' 

LOO 

1 oad  var i ab 1 e 

rA;=PRT(rA). 

PCI 

SIO 

store  nonoestruct 

PRT(rb) :=rA. 

rfi:=rA.  POP 

• 
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PCI 
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r 


I 
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STD 

store  dest  ruct i ve 

PRT(rB);=rA.  POP. 
PC  1 

POP. 

STS 

store  string 

if  (PRT ( rB)  ] <>nul  1 
release  (PRT  ( rB)]  . 
: = rA.  rB  ;=rA.  POP . 

then 

PRT(rB) 

PCI 

DEL 

delete  f rom  stack 

POP.  PCI. 

OUP 

duo  1 i c at  e 

PUSH.  rA;=r6.  PCI 

XCH 

e X c h ange 

<temp>;=rB.  rB:=rA 
r A : =<  t emo> ; PC  1 

• 

f.  Program  Control  Operators 

Program  control  operators  provide  for  program 
termination,  subroutine  linkage  and  branching.  The  absolute 
branch  (BPS)  and  conditional  branch  (BRC)  instructions  are 
followed  by  a two  byte  adoress  which  contains  the  brancn 
address.  In  the  case  of  the  forward  branches  (GFN  and  BFC), 
the  stack  contains  an  increment  to  be  added  to  the  program 
counter.  The  program  control  operators  are  listed  below 
along  with  their  corresponding  actions; 


OPEPAIIUU  NAME  ACTION 

XIT  terminate  execution 

NOP  no  ooeration  PCI 

PRO  subroutine  call  PUSH.  rA:=rC+3;  PC1» 


rC:  = ( (rC)  ) 

RTN  return  rC:=rA;  POP 

BKS  uncond i t i ona 1 PCI?  rC:=((rC)) 

branch 
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BKC 


cona i t i ona 1 


if  rA=  0 then  PClJ 


branch 

0hlM  branch  forward 

BF  C Condi t i ona 1 

forward  branch 


rC:  = ((rO)  else  rC:  = rCt3; 
POP 

rC:=rC+’rA.  POP 

if  rB:=  0 then  rC;=rC+rA 

else  PCI.  POP.  POP 


g.  Inout /Output  Operators 

The  input/output  operators  provide  data  transfer 
between  the  console  and  the  disk.  Instructions  are  also 
provided  to  read  constants  from  the  data  area.  The  defini- 
tion of  the  operators  is  listed  below: 


operation  nave 

RCN  initiate  console 

read 


RDV  read  numeric  from 

console 


RES  read  string  from 


ECR  end  console  read 


ACTION 

read  console  into  buffer 
until  end-of-line  character 
found.  PCI 

Push  stack.  Convert  the  next 
field  in  the  console  buffer 
to  internal  numeric  and 
place  it  in  rA . PCI 
Push  stack.  Place  the  next 
field  from  the  console  buffer 
into  the  FSA  ano  put  the 
out  address  in  rA.  PCI 
Complete  console  read.  Check 
for  data  remaining  in  the 
console  buffer.  PCI 


i 

i 


L 


3« 


write  nume  r i c to 


Convert  numeric  in  rA  to  a 


console 


string  ana  olace  it  in  the 


OoF 


OFN 


CLS 


KHF 


HDB 


RDM 


write  String  to 
console 

flump  print  Puffer 
space  print  buffer 
open  d i s file 


c 1 ose  disk  file 


initiate  random 
disk  read 


print  buffer.  POP.  PCI 
Place  string  referenced  by 
rA  in  the  print  buffer. 

POP.  PCI 

Write  print  buffer  to  con- 
sole. PCI 

Skip  print  buffer  to  next 
predefined  tab.  PCI 
Open  disk  file  with  name 
referenced  by  rA  and  block 
siee  in  rb.  Assign  next  file 
identifier  to  the  file.  PUP. 
POP,  PCI 

Close  disk  file  whose  file 
identifier  is  in  rA.  POP 
PCI 

Ready  to  read  disk  file.  rA 
contains  record  number,  rb 
contains  file  identifier. 


POP.  PUP.  PCI 


initiate  disk  Ready  to  read  seauentially 

file  for  read  from  disk,  rA  contains  file 

Identifier,  POP.  PCI 

read  numeric  from  PUSH.  Place  numeric  field  from 
current  disk  file  selected  disk  file  in  rA. 


PC  1 


ROS 


read  string  from 


Push.  Place  string  field  from 


current  disk  file 


selected  disk  in  FSA  and  place 


ena  disk  read 


write  nume r i c to 
disk 

write  strinq  to 
disk 

end  disk  write 


define  eno-of 
file 


define  ena  o f 
file 


restore 


address  in  r A . PCI 
Complete  disk  reao.  If  the 
file  is  blocked^  skip  to  the 
next  line  teminator.  FCl 
Convert  numeric  in  rA  to 
string  and  place  in  current 
disk  record.  POP.  PCI 
Place  string  adaressed  by  rA 
in  current  aisk  recora.  PUP. 
PCI 

Complete  disk  write.  If  the 
file  is  blocked#  fill  the 
remainder  of  the  record  with 
blanks  ana  aopend  a line 
terminator  to  the  record.  PCI 
The  two  bytes  following  the 
operation  code  is  a branch 
address  where  execution  is 
to  begin  if  end-of-file  is 
detected  on  the  file  refer- 
enced by  rA,  POP.  PCI. 

Two  bytes  following  operation 
code  is  branch  address  if  end 
of-file  is  detected  on  file 
referenced  by  rA.  POP.  PC3 
The  data  area  pointer  is  set 
to  the  beginning  of  the  data 


area . PCI 


OKS  reaa  string  from  PUSH.  Place  next  data  area 

data  area  field  into  the  FSA  and  put 

address  in  r A . PCI 

DKF  read  numeric  from  Push  stack.  Convert  next 

data  area  field  in  aata  area  to  inter- 

nal numeric  and  place  in  rA, 
PC  1 

OUT  Output  to  Port  The  low  order  8 bits  of  the 

value  in  rA  is  cutout  to  the 
8000  machine  port  represented 
by  rB.  POP.  POP.  PCI 

INP  input  from  port  Pa  is  set  to  the  value  input 

from  the  8060  machine  port 
reoresented  by  rA.  PCI 

h.  Built-in  Functions 

8asic-E  ouilt”in  functions  perform  complex 
operations  which/  in  a real  machine*  might  reauire  a number 
of  machine  instructions.  A descriotion  of  these  operations 
is  given  below. 

OPEKAlIOt'J  NAME  ACTION 

OQW  array  setup  used  to  aid  in  setting-ur 

an  array  in  the  FSA  in  row” 
major  orner.  rA  contains  the 
numoer  of  dimensions.  Below 
rA  is  each  dimension.  The 
lower  bound  is  0.  PCI 
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SUB  subsc  riot 

ca 1 cu  J at i on 


CBA  convert  to  binary 

AbS  absolute  value 

INT  convert  to  integer 

R(MD  random  number 

FRE  available  soace 

in  F S A 

sign  function 

SIN  sine  functi on 

CQS  Cosine  function 

ATN  arctangent  function 

SQR  square  root 

f unc  t i on 

TAN  tangent  function 

ExP  exDonent i at i on 


Used  to  compute  the  address 
of  an  array  element  in  the 
FSA.  The  byte  following  the 
opcode  is  the  number  of 
dimensions.  The  indices  are 
on  the  stack.  PCI 
The  numeric  value  in  rA  is 
converted  to  a Ifc  bit  binary 
value.  PCI 

rA;=absolute  value  of  rA 
PCI 

rA;=integer  oortion  of  rA 
PC  1 

PUSH.  rA;=random  number 
between  0 and  1.  PCI 
Push.  rA:=unuseO  soace  in 
FSA.  PCI 

if  rA>0  then  rA;=l  else 
if  rA<  then  rA:=  -1  else 
rA;=  0.  PCI 
rA;=sine(rA);  PCI 
r A : =cos i ne ( r A ) ; PCI 
r A : =a r C t an ( r A ) ; PCI 
rA:=  (rA).  PCI 

r A : = t anaent ( r A ) ; PCI 
rA;=e  raised  to  the  rA 
power  where  e = 2.718^8... 
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A 


r 


I CUSH  hyperbolic  cosine 

I 

function 

SlNh  hyperbolic  sine 

f unc  t i on 

LOG  natural  loq 

f unc  t i on 

PQS  print  position 

j ASC  character  convert 

1 

CHR  string  convert 

t 

I 

1 

, TAB  tab  print  buffer 

I 

j LtFT  left  substring 

I 

j 


PC  1 

rA:=cosh(rA);  PCI 

rA;=sinh(rA);  PCI 

rA;Ln(rA).  PCI 

PUSH.  rA:=  current  position 
of  the  print  buffer  pointer. 
PCI 

rA;=  the  ASCII  numeric  value 
of  the  first  charachter  of 
tne  string  referenced  by  rA. 
PC  1 

The  value  in  rA  is  converted 
to  a string  in  the  FSA.  A 
reference  to  the  string  is 
ol aceg  in  r A . PCI 
The  print  buffer  pointer  is 
set  egual  to  rA  mod  72.  POP. 
PC  1 

rA  contains  the  number  of 
bytes  of  the  right  portion 


! 


I 

i 

I 


PC  1 

right  right  SuDstring  rfl  contains  the  numoer  of 

bytes  of  the  right  portion 
of  the  string  referenceO  by 

rB  wnich  will  form  a new 

/ 

string  in  the  FSA.  17B  is  set 
equal  to  the  aoaress  of  the 
new  string,  POP.  PCI 

^ID  substring  Three  parameters  are  on  the 

stack.  The  first  is  the 
length  of  the  substring  to  be 
created  in  the  FSA.  The  sec- 
ond is  the  starting  point  into 
the  string  referenced  by  the 
third  parameter.  The  too  two 
elements  are  popped  from  the 
stack  and  rA  is  set  equal  to 
the  address  of  tne  substring. 
PCI 

ROM  round  to  index  The  floating  point  number 

in  rA  is  rounded  to  the 
nearest  integer  and  con- 
verted to  a lo  bit  address. 

PC  1 

ChO  check  on  inoex  rA  contains  the  max  number 

of  labels  in  a ON  statement, 
rb  is  the  number  of  the  se- 
lected laoel.  It  rB>rA  or 


I 

£ 

i 
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r&-0,  then  an  error  occurs 


BOL  beginning  of  line 


AOJ  adjust  oranch 

address 

C.  COMPILER  STRUCTURE 

1.  Compiler  Organization 

The  compiler  structure*  diagrammed  in  Figure  3* 
reouires  two  passes  through  the  source  program  to  produce  an 
intermediate  language  file  with  optional  source  listing  at 
the  console.  One  oass  writes  all  numeric  constants  to  the 
INT  file  and  determines  the  size  of  the  code  area*  data 
area*  and  the  PRT.  These  -parameters  are  sent  to  the  ITJT 
file  at  the  end  of  pass  one.  6y  passing  the  numeric  con- 
stants to  the  run-time  monitor  as  unconverted  ASCII  strings* 
the  compiler  does  not  reQuire  the  floating-point  conversion 
package*  saving  considerable  memory  space.  Pass  two 
resolves  forward  references  and  outputs  the  generated  code 
to  the  INI  file. 

i . Scanner 

The  scanner  analyses  the  source  program*  returning  a 
seduence  of  tokens  to  the  parser.  In  addition,  the  scanner 


otherwise  POP.  rA:=rA*3tl 
rA  contains  the  number  of  the 
line  being  executed.  This 
value  is  saved  for  diag- 
nostics. POP . PCI 
rA:=rA+base  of  code  area. 

PCI 


«1 


provides  the  listing  of  the  source  file 


skips  remarks. 


I 

I 

I 

I 


processes  data  statements,  sets  and  resets  compiler  toggles, 
and  recognizes  continuation  characters.  Analysis  of  the 
first  non-blank  character  in  the  input  stream  determines  the 
general  class  of  the  next  token.  The  remainder  of  the  token 
is  then  scanneo,  olacino  each  successive  character  into  the 
array  ACCUM,  The  first  byte  of  ACCUM  contains  the  length  of 
the  token.  The  global  variables  lOKEN,  SUBTYPE,  FUiNCOP, 
HASHCODE,  and  NEXTCHAR  are  set  prior  to  returning  to  the 
parser.  in  the  case  of  string  constants  whose  length  exceed 
the  length  of  ACCU’'^,  a continuation  flag  is  set  to  allow  the 
parser  to  obtain  the  remainder  of  the  string. 


If  the  scanner  recognizes  an  identifier,  it  searches 
the  reserved  worg  table  to  determine  if  the  identifier  is  a 
reserved  word.  If  found,  the  token  associatea  with  that 
reserved  word  is  returned  to  the  oarser.  If  the  reserved 
word  is  a credefined  function  name,  FuNCOP  is  set  to  the 
machine  operation  code  for  that  function  and  SUBTYPE  is  set 
to  provide  additional  information  about  the  function,  as 
shown  in  Figure  y. 

Compiler  toggles,  statement  continuation  characters, 
listing  of  source  lines,  and  data  statements  are  handled  by 
the  scanner.  Data  statements  processed  by  the  scanner  per- 
mits the  string  constants  to  appear  as  though  read  from  the 
console,  and  thus  they  may  or  may  not  be  delimited  by  quota- 
tion marxs.  In  addition,  constants  defined  in  DATA  state- 
ments can  be  located  in  a common  area  of  the  das»C“E  machine 
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t y oe  of 
f unc  t i on 


type  of 
oa  name  t e p s 


numtaep  of 
parafpet  ers 


Type  of 


Type  of 


Sub  t yoe 


parameter:  0 if  numeric 

1 if  s t r i nq 


b i t 

i s oa  r ame  t e r 

1 

b i t 

3 

is  parameter 

b i t 

a 

is  parameter 

3 

function;  0 if  numeric 

1 if  s t r i na 


f i qu  re  4 


Field  for  Predefined  Functions 


which  simolifies  the  run-time  processing  gt  WtAD  statements 


I 


The  penalty  of  not  being  able  to  s yn t a * -c hec k the  constants 
is  considered  worth  the  gain  in  simplicity  ana  flexibility. 

3 . Symbo 1 Table 

The  symbol  table  stores  attributes  of  program  and 
compiler  generated  entities  such  as  identifiers,  function 
names,  and  labels.  The  information  stored  in  the  symbol 
table  is  built  and  referenced  by  the  compiler  to  verify  that 
the  program  is  semantically  correct  and  to  assist  in  gen- 
erating code.  Access  to  the  symbol  table  is  provioeg 
through  a number  of  subroutines  operating  on  the  symbol 
table  global  variables. 

The  symbol  table  is  an  unorderea  linear  list  of 
entries  which  grow  towarg  the  top  of  memory.  Ingividual 
elements  are  accessed  through  a chained  hash  addressing 
scheme  as  diagrammeo  in  Figure  Each  entry  in  the  hash 
table  heaos  a linked  list  whose  orintnames  all  evaluate  to 
the  same  hash  address.  A zero  in  toe  hash  table  indicates 
no  entries  exist  on  that  particular  chain.  During  refer- 
ences to  the  symbol  table  the  global  variable  PKINTifAWE  con- 
tains the  address  of  a vector  containing  the  length  of  the 
printname  followed  by  the  printname  itself.  The  global 
variable  SYMHASH  is  set  to  the  sum  of  the  ASCII  characters 
in  the  printname  mooulo  b«.  Entries  are  Chained  such  that 
the  most  recent  entry  is  the  first  element  on  the  chain,  out 
they  Physically  aooear  in  the  symool  table  seguentially  in 


as 


accuM 


t 


SY^^dOL 

TABLE 


F i qti  re  5 

' ■ 0 pqan i ? a t i on 


b 


the  order  they  are  entered 


Each  entry  in  the  symbol  table  consists  o^  a 
variable-lenqth  vector  of  eight  entries.  Figure  t>  diagrams 
a typical  entry.  In  the  case  of  user-definea  functions#  the 
entry  takes  on  a different  format  as  shown  in  Figure  7.  The 
parameters  of  a user-oefined  function  are  entered  into  the 
symbol  table  using  the  same  format  as  a typical  entry  shown 
in  Figure  6.  To  insure  that  the  parameter  names  are  local  to 
the  function  definition#  the  entries  for  user-defined  func- 
tion parameters  (if  there  are  any  parameters)  are  linked  to 
the  symbol  table  during  code  generation  for  the  function  ano 
removed  from  the  symbol  table  during  the  remainder  of  the 
pass.  Since  the  oaramaters  appear  directly  after  tne  entry 
for  the  function#  a reference  to  a user-defined  function 
accesses  the  parameters  relative  to  the  function  name. 

The  symbol  table  is  accessed  using  11  primitive 
functions.  LOCKUP  is  called  with  global  variables  STMHASrt 
and  PKlifTiSAME  set.  If  the  printname  is  found#  LOOKUP  sets 
BASE  to  the  beginning  of  the  entry  and  returns  true.  Other- 
wise false  is  returnee.  ENTER  also  requires  SYMFIASH  and 
printname  to  be  set  and  will  build  an  entry  placing  it  on 
the  aporopriate  hash  table  chain.  GETYPE#  GETAOOR#  ano  GET- 
SUBIYPE  access  fields  in  a particular  symbol  table  entry 
while  SETYPE#  SETAOOR#  ana  SETSUBTYPE  enter  values  in  the 
cor resoonoi nq  fields.  SETRES  returns  true  if  the  address 
field  has  been  resolved  and  false  otherwise.  RELINK  and 
unlink  provide  local  access  to  function  oarameters  as 
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Figure  7 


Symbol  Table  Entry  For  a User-Defined  Function 


discussed  above.  All  the  routines,  with  the  exception  of 
LOOKUP  and  EMTEK.  assume  that  BASE  points  to  the  proper 
entry.  The  symbol  table  vector  is  also  used  to  maintain 
information  reouireo  during  FOR  loop  code  generation.  Each 
FOR  loop  uses  eight  bytes  of  the  vector.  This  storage  is 
allocated  starting  at  the  highest  usable  address  in  memory 
and  builds  toward  the  symbol  table  entries. 

4.  Parser 

The  parser  is  a table-driven  pushdown  automaton.  It 
receives  a stream  of  toieens  from  the  scanner  and  analyzes 
them  to  determine  if  they  form  a sentence  of  the  8asic-E 
grammar.  As  the  parser  accepts  to*<ens.  one  of  three  actions 
will  be  performed.  It  may  stack  the  token  and  continue  to 
analyze  the  source  oroaram  by  fetching  another  token,  or  the 
parser  may  determine  that  it  has  recognized  the  right  cart 
of  one  of  the  productions  of  the  language  and  cause  a reduc- 
tion to  take  place.  Finally,  the  parser  may  determine  that 

» ‘ I , 

the  current  string  pf  tokens  does  not  produce  a valid  right 
bart  for  a production  and  thus  produces  a syntax  error  mes- 
sage. The  8asic-E  grammar  is  designed  so  that  each  state- 
ment parses  to  a complete  program  causing  a source  program 
to  appear  as  a series  of  programs.  When  an  error  is 
detected,  the  input  characters  are  scanned  until  the  end  of 
the  statement  is  found.  The  parser  is  then  re i n i t i a 1 i zed » 
and  the  next  "program"  is  parsed.  The  major  data  structures 
in  the  parser  are  the  LALR  parse  tables  and  the  parse 
stacks. 
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The  oarse  stacks  consist  of  a state  stacic  and  si* 
auxiliary  stacks.  These  auxiliary  stacks  are  parallel  to 
the  oarse  stack  and  are  used  to  store  information  reauirea 
during  code  generation,  such  as  token  values,  symbol  table 
pointers,  and  temporary  values  associated  with  reductions, 

5.  Code  Generation 

In  addition  to  verifying  the  syntax  of  source  state- 
ments. the  parser  also  acts  as  a transducer  by  associating 
semantic  actions  with  reductions.  Each  time  the  parser 
determines  that  a reduction  should  take  place,  the  procedure 
SYNiriESIZt  is  called  with  the  number  of  the  oroauction 
oassed  as  a oarameter.  The  oarse  stacks  contain  the  infor- 
mation required  to  perform  the  semantic  action  associated 
with  the  selected  production.  The  action  may  include  gen- 
eration of  Basic-E  machine  code  and  operations  such  as  sym- 
bol table  man i Dul at i ons  and  uodating  of  the  parse  stacks. 
Some  productions  have  no  semantic  actions  associated  with 
them.  In  the  following  sections,  the  syntax  of  the  1 anguage 
will  be  listed  in  the  BNF  notation  followed  by  the  semantic 
actions,  offset  with  asterisks,  associated  with  that  produc- 
tion. Ihe  descriotion  will  be  in  terms  of  compiler  data 
structures  and  the  Basic-E  machine  code  generated.  This 
notation  is  similar  to  that  used  in  Ref.  11.  For  example 
oroduction  S7  would  be  described  as  follows: 

<variable>  <subscriot  head>  <expression>  ) 

*<Subscript  head>.  <e *o r es s i on> ; L I D array  name; 

*SUB 
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This  inaicates  that  code  for  the  non-terminal  <variable>  is 
generated  by  first  producing  a <subscript  Heao>  ano  an 
<e*pression>,  and  then  emittinq  a LID  followed  by  the  array 
name  and  a SuB.  The  reference  to  the  array  name  would  be 
stored  in  a parse  stack. 


a.  8asic-E  Language  Structure 


Tne  overall  structure  of  the  Basic-E  language  is 
given  by  the  following  syntax  equations: 

(1)  <proqram>  ;:=  <line  numoer>  < s t a t emen t > cr 

*<line  number>;  <statement> 

(2)  <line  number>  <numfcer> 

*<number> 

(3)  ! <empt  y> 

(^)  <statemet>  <statement  list> 

*<  s t a t emen t li s t > 

(5)  !<ifstat  emen  t > 

*< 1 f st  at  ement  > 

(6)  l<ena  statement> 

*<end  state ment> 

(7)  !<Oimension  statement> 

*<dimension  statement> 

(8)  !<define  statement> 

*<define  statement> 

♦ 

('*)  <statement  list>  < s i mo  1 e s t a t emen  t > 

*<simple  Statement> 

(10)  I<statement  list>  : <simple  statement> 

*<statement  list>;  <simple  statement> 


(11)  <simple  statement>  <let  statement> 

»<let  stat  ement  > 


♦ <ass i qnment  > 


*<for  stat emen t> 


*<next  Stat  ement  > 


*<file  statement> 


*<cIose  statement> 


•<read  statement> 


<assi gnment  > 


<for  stat  ement  > 


<next  statement> 


<file  statement> 


<close  statement> 


< r ead  s t a t emen  t > 
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(18) 


<Drint  statempnt> 


( 1«) 
(^0) 
(21  ) 
(22) 
(23) 
(2U) 
(25) 
(2b) 

(27) 

(28) 


assignment  statements  and  exoressions.  The  types  of 
operands  which  are  legal  for  each  of  the  binary  operators  is 
shown  in  the  Taole  1.  The  operand  for  the  unary  operators 
-»  ana  NOT  must  be  numeric  quantities,  A checw  is  made 
to  insure  the  above  semantic  rules  are  followed. 

Checks  are  also  made  to  insure  that  suDScriPted 
variables  are  aimensioned  oefore  being  used»  that  they  have 
the  correct  number  of  subscripts#  that  each  subscript  is  of 


t ype 

nume  r i 

C 1 

and 

that  a 

subscripted  variable  is 

not 

used  as 

a FUK 

1 OOP 

i nde  X . 

L i ke#.  i 

se»  checks  are  made  on 

the 

number 

and 

type 

o f 

parameters 

in  a function  call  to 

insure  they 

match  the  function  definition. 


(2*5)  <let  statement>  <assiqnment> 

*<assignment> 


*<print  statement> 

*<goto  statement> 

*<qosub  3tatement> 

*<inout  3tatement> 

*<stop  statement> 

*<return  statement> 

* <on  s t a t emen  t > 

<restore  statement> 
*<restore  statement> 

<randomize  statement> 
*<randomize  statement> 

<ou  t s t a t emen  t > 

*<out  statement> 

<emo  t y > 

b.  Assignment  Statements  and  Exoressions 


<qoto  statement> 
<qosub  statement> 
<input  statement> 
<stop  statement> 
<return  statement> 
<on  statement> 


The  following  productions  generate  code  for 


(39) 
(31  ) 

(32) 

(33) 

(59) 

(35) 

(3b) 

(38) 

(39) 

(90) 
(91  ) 

(92) 

(99) 

(95) 

(96) 

(97) 

(98) 

(99) 


<assiqn(nent>  <assiqn  heaa>  <e*pression> 

*<assiqn  heaa>»  <exDress i on> ; if  type  of 
♦expression  string  then  STS  otherwise  STD 

<assign  head>  ;:=  <variaOle>  = 

*<variable>;  if  simple  variable  then 
♦LIT  <variable> 


<expression>  ;:=  <loqical  factor> 

*<loqical  factor> 

1 <exoress i on>  <or>  <expression> 

♦<e xp ress i on> ; <exDress i on>;  <or> 

<xor>  ;:=  OR 

♦ bOR 

! Xt'R 

♦ XOR 

^logical  factor>  <logical  secondary> 

♦Oogical  secondary> 

l<loaica1  factor>  AND  <logica1  factor> 
♦^logical  factor>;  <1oaical  factor>;  AND 

<logica1  secondary>  :!=  <logica1  primary> 

♦<loqica1  orirrary> 

INOT  <1ogical  seconaarv> 

*<1ogica1  seconaary>;  NOT 

<loqical  orimary>  ::=  <ar i t hmet i c expression> 

*<ar i t hmet  i c expression> 

!<arithmetic  expression>  <relation> 
<a r i t r me t i c exoression> 

♦<arithmetic  express  ion>»  <arithmetic  expression>; 
*<re 1 at i on> 


<arithrretic  express  ion>  <term> 

♦ < t e r m> 

!<arithmetic  expression> 
*<aritnmetic  expression>;  <terT>? 

♦if  string  then  CAT  else  FAD 

I <a r i t hme t i c exoression>  - 
♦<arithmetic  expression>?  <term>;  FMI 

I + < t e r m > 


♦ < t e r m> 
*<term>  NEG 


< t e r m > 


+ < t e r m > 


< t e r m> 


<term>  <primary> 

♦<primary> 

!<term>  ♦ <primary> 
*<term>;  <primary>;  FMU 

!<term>  / <primary> 
♦<term>;  <orimary>  FOI 
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(50)  <ppimary> 


<e 1 emen  t > 


(51) 

(52) 

(53) 
(5a) 
(55) 

(5b) 

(57) 

(58) 

(59) 

(60) 

(61  ) 
(62) 
(63) 

(6a  ) 


/' 

*<e ) emen  t > 

j<orimary>  T <e!ement> 

*<primary>;  <e1ewent>;  EXP 

<element>  ::=  <variab1e> 

»<variable>; 

*if  si-nple  variable  then  LID  <variable> 

•otherwise  LOD 

I <Const  ant  > 

•<const  ant  > 

! < f unc t ion  c a 11  > 

•<f unct ion  ca 1 1 > 

! ( <expressi on>  ) 

*<exoressi on> 

<variable>  < i dent i f i er> 

• < i den t i f i e r > ; (olace  <identifier>  in  the 
•symbol  table  if  first  reference  and  set 
•the  type  to  simple) 

I<subscript  head>  <expression>  ) 
•<subscript  head>;  <e xc r ess i on> ; 

•LID  array  name*  SUB 

<subscript  head>  <identifier>  ( 

•<i dent i f i er> * (check  that  <identifier>  has 
•been  previously  dimensioned  and  save 
•for  future  use) 

«<subscriot  head>  <expression>  * 
•<subscript  heao>;  <expression> 

<function  ca11>  <function  head>  <expression>  ) 

•<function  head>*  <express i on> ; 

•for  user-defined  function  if  tyoe  <exoression> 
string  then  STS  otherwise  STD;  PPO 
•for  predefined  function  function  name 
•where  function  name  was  saved  in  production  b5 
■^function  name> 

•for  user-defined  function  PRO  otherwise 
•function  name  where  function  name  was  saved  in 
•o  r oduc  t i on  b5 

<function  head>  ::=  <function  name>  ( 

•<function  name>* 

•if  user-defined  function  then  LIT  parameter  address 
♦where  parameter  address  is  determined  from 
•symbol  table  entry  for  the  function. 

l<function  name>  <expression>  * 
*<function  name>*  <e xp res s i on> ; if  user-defined  then 
•if  type  <expression>  string  then  STS  otherwise  STD 
•LIT  <parameter  address> 

•where  <oarameter  address>  is  determined  from 
•symbol  table  entry  for  the  function. 

<function  name>  <use r-tae f i ned  name> 

•(check  that  <user  defined  name>  is  in  the 
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♦symbol  table} 

(65)  {<predefined  name> 
♦(save  predefined  name  for  future  use) 

(66)  <constant>  J:=  <number> 

♦<number>;  CON  next  constant  location 
♦if  pass  1 spool  to  INT  file 

(67)  }<string> 

♦ ILS  <st  r i nq> 


(68) 

<rel at i on> 
♦ EQU 

• • • « 

• • • • 

(69) 

♦ GEQ 

!GE 

(70) 

♦ GEQ 

1 > = 

(71  ) 

♦LEQ 

! <- 

(72) 

♦LEQ 

!LE 

(73) 

♦ GTR 

; > 

(79) 

♦LSS 

! < 

(75) 

♦ NEQ 

! <> 

(76) 

♦ NEO 

:ne 

c.  Control  Statements 


The  control  statements  in  the  basic-E 
are  given  by  the  following  syntax  equations: 

(77)  <for  statement>  <for  head>  TO  <exoression> 

<steo  clause> 

♦<for  nead>;  <exoress i on>;  <step  clause>; 
♦if  stepclause  then  DUP? 

♦LlO  <index>;  F40? 

♦if  stepclause  then  LIT  <inaex>;  xCh; 

♦ STO; 

♦if  stepclause  XCH;  LIT  0;  LSS;  LIT  5;  BFC; 
♦if  stepclause  LIT  2}  BFN; 

♦ffq;  brc  Exit;  code: 

(78)  <for  head>  <for>  <assignment> 

♦<for>;  <as s i gnmen t > ; BRS  CODE;  TEST; 

♦save  the  <identifier>  for  use  later) 

(79)  <f or>  : :=  FOR 

♦(set  forstatement  f 1 aa  true) 

(80)  <step  clause>  ;:=  STEP  <expression> 


1 anquage 


leq; 


*<e*pression>;  {set  steoclause  true> 

(81)  I <empt  v> 

*(set  stepciause  false); 

♦LIT  <index>;  CON  0 

(14i)  <next  statement>  <next  head>  <identifiep> 

*<next  head>*  < i den t i f i e r > » BRS  TEST; 

♦tXIT; 

(lua)  [NEXT 

•bRS  TEST;  EXIT; 

(l^b)  <next  head>  :;=  NEXT 

(l^o)  l<next  head>  <identifier>  , 

♦bRS  TEST;  EXIT; 

(8?)  <if  statement>  ;;=  <if  arouP> 

♦<if  aroup>;  END; 

(83)  !<if  else  qroup>  <statement  list> 

♦ <if  else  qro(jp>;  <statement  list>;  END; 

(84)  !IF  END  4 <exppession>  THEN  <nomber> 
♦<exppes3 i on> ; {resolve  label);  DEF;  LABEL; 

(85)  "<  i f gpoup>  ;;=  <if  head>  <statment  Hst> 

♦ <if  head>;  <statement  Hst>;  END; 

(8b)  !<if  head>  <nu'»'bep> 

*<if  head>;  (resolve  label);  BRS  LABEL 

(87)  <if  else  group>  ;;=  <if  head>  <statement  list>  ELSE 

*<if  heao>;  <state'nent  list>;  ELSE:;  BRS  END 

(88)  <if  head>  IF  <exppession>  THEN 

♦<expression>;  BRC  END 

(131)  <goto  statement>  :;=  <goto>  <number> 

*<qoto>;  (resolve  label);  BRS  LABEL 

(13^)  <on  statement>  <on  goto>  <label  Hst> 

♦<on  goto>;  <label  list>;  (save  number  of  labels 
♦in  <label  list>  for  later  use) 

(133)  1 <on  gosub>  <label  list> 

*<on  qosub>;  <label  list>;  (save  number  of  labels 
♦in  <label  list>  for  later  use);  END: 

(134)  <on  ooto>  <expression>  <qoto> 

♦<express i on> ; <qoto>;  RON;  LIT  number  of  labels; 
♦CKO;  BFN 

(135)  <ongosub>  ;;=  <expression>  <qosub> 

♦<expression>;  <qosub>;  LIT  END;  ADJ;  XLH;  RON; 
♦LIT  number  of  labels;  CKO;  BFN 

(13b)  <label  list>  ;;=  <number> 

♦{resolve  label);  BRS  LABEL 

(13/)  !<label  list>  t <number> 
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»<label  Hst>;  (resolve  label};  BRS  LABEL 


(138) 

<gosub  statement>  :: 
♦<gosuD>;  (resolve 

= <gosub> 
label); 

<numbe  r > 
PRO  LABEL 

(139) 

(140) 

<got  o> 

: :=  GOTO 
JGO  TO 

( 141  ) 
(142) 

<gosub> 

:;=  GOSue 
IGO  SUB 

(148) 

< re  t u rn 
♦ KTN 

statement>  : 

;=  RETURN 

(149) 

<stoo  statement> 

STOP 

*XIT 

d.  Declaration  Statements 


The  declaration  statements  in  the  Basic-E 
language  are  given  by  the  following  syntax  eguations: 

(89)  <define  statement>  <ud  function  name> 

<dummy  arg  list>  = <expression> 
*<ud  function  name>;  <dummy  arg  list>; 

*<exDress i on>;  xch;  rtn;  END:; 

♦{unlink  dummy  arguments  from  symbol  table) 

(90)  <ud  function  name>  :!=  DEF  <use  r*de  f i ned  name> 

♦BRS  end;  (if  oass2  relink  dummy  arguments  into 
*s  vmbo 1 table) 

(91)  <dummy  arg  list>  ::=  <dummy  arg  head>  <identifier> 

*<dummy  arg  heaa>;  < i den t i f i e r> ; (enter  dummy 
♦argument  in  symbol  table) 

( 92 ) ! <emot  y > 

(93)  <dummy  arg  head>  ( 

(94)  I <dummv  arg  head> 

♦<dummy  arg  head>;  < i oen t i f i e r > ; 

♦argument  in  symbol  table) 

(95)  <file  statement>  <file  heaa>  <fi)e  aeclaration> 

♦<file  head>;  <file  declaration> 

(96)  <file  head>  FILE 

(97)  !<file  head>  <file  declaration>  , 

♦<fi1e  head>  <fi1e  declaration> 

(9«)  <tile  declaration>  <identifier>  <fi)e  rec  si^e> 

♦ <file  rec  size>;  (if  <identifier>  is  not  in 
♦the  symbol  table  enter  it);  LID  <identifier>;  UPN 


< i dent i f i e r > , 
(enter  oummy 
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( <express i on>  ) 


(99)  <fiJe  rec  size> 
•<exDPes3 i on> 

• LIT  0 


! <emot  y> 


( 101  ) 


<aiireosion  statement>  DIM  <aimens 

*<aimension  variable  list> 


on  va r i ab 1 e 


1 i 


(10^) 
( lOi) 


<aimension  variable  list>  ;:=  ‘dimension  variable> 
•‘dimension  variabie>;  ROW  subscriot  count#  STD 

{‘dimension  variable  list>  # 
‘din>ension  variab1e> 

•‘dimension  variable  1ist>»  ‘dimension  variable>» 

• WOW  subscriot  count#'  STD 


(lOU)  ‘dimension  variable>  ;:=  ‘dim  var  head>  ‘expression> 
•‘dim  var  heao>#  ‘e xc r ess i on> ; {increment  count  of 
•subscripts  and  save  for  future  use);  RLN 


(10b)  ‘dim  var  head>  ‘identifier>  ( 

•{enter  ‘identifier>  in  symbol  table)# 

• LIT  < i dent i f i e r > 

(10b)  !‘dim  var  head>  ‘expression>  # 

•‘dim  var  heao>»  ‘e xd res s i on> » {increment  count  of 
•subscripts  and  save  for  future  use);  RON 

e.  Input/Output  Statements 


The  input/outout  statements  in  the  basic 
1 anguaae  are  given  by  the  following  syntax  eauations! 

(107)  ‘close  statement>  ::=  CLOSE  ‘close  list> 

• ‘c 1 ose  1 i St  > 

(lOtt)  ‘close  1ist>  ;;=  <exoression> 

• ‘express i on>  ; CLS 

(109)  [‘close  list>  # ‘expression> 

• ‘close  list>;  ‘exoression>#'  CLS 

(llU)  ‘read  statement>  ::=  READ  ‘file  option>  ‘readlist> 
•‘file  ootion>;  ‘read  Iist>#  EOR 

(111)  !»EA0  ‘read  list> 

•‘read  list> 

(lid)  ‘input  statement>  INPUT  ‘prompt  ootion>  ‘read  li 

•‘prompt  ootion>;  ‘read  list^#  ECR#  (set  inoutstmt 
•inputstmt  false) 

(lli)  ‘prompt  oPtion>  ‘constant>  ; 

•‘constant>;  iftST;  ORF ; RCN;  (set  inputstmt  true) 

(114)  !‘emoty> 
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St  > 


) 


-E 


s t > 


F 


*L)BF ; RCN;  (set  inoutstmt  true> 

(11b)  <read  Hst>  <variable> 

*<variab1e>  ! code  from  table  ^ 

(116)  I<read  Hst>  > <variable> 

*<read  Iist>  ; <variable>?  code  from  table 
( 1 1 / ) 1 <emot  y> 

(118)  <orint  statement>  PRINT  <print  list>  <print  end> 

*<print  Hst>»  <orint  end> 

(IIV)  [PRINT  <file  ootion>  <file  Hst> 

*<file  oPt»on>;  <file  Hst>;  EDa;  (set  fileio  false) 

(120)  <print  Hst>  <exoression> 

*<exoress i on> ; if  string  AST  otherwise 

(121)  [<orint  list>;  ?:print  delim>; 

*<print  1ist>;  <print  delim>;  <expressi 
♦if  string  aST  otherwise  'aRV 

(122)  [ <empt  y > 

(123)  <file  list>  <e*oression> 

*<express ) on> ; if  string  aRS  otherwise  aRN 
(12u)  [<file  list>  f <exoression> 

*<expression>;  <exoression>;  if  string  aRS 

♦ ot  ne r w i se  aRN 

(12b)  <print  end>  <print  oelim> 

♦<or i nt  Oe 1 i m> 

(12b)  1 <empt  y > 

♦ U8F 

(127)  <file  option>  ::=  # <e*pression>  ; 

*<express i on> ; RON;  ROB;  (set  fileio  true) 

(12d)  !«  <express  i,on>  f <expression> 

* <exp r ess i on> ; <exoress i on> ; RDF;  RON;  XCh;  RQN; 

* ( set  fileio  t rue) 

(129)  <print  delim>  } 

(13U) 

*NSP 

(19/)  <out  statement>  ::=  OUT  <expression>  > <exoress i on> 
♦<express i on>;  <expr es s i on> ; RON;  XCH;  RON;  OUT 


aRV 

<express i on> 
on> ; 
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Table  1 


Permissible  Variable  Types  i^ith  Binary  Operators 


string 


nume  r i c 


string 

, type  If  + 

error 

nume  r i C 

error 

type  \ t type  2 » 

type  I operands 

type  2 operands 

< > = 

<=  <> 

> = 

= (ass i gnment  ) 

- or 

* and 

/ X 0 r 

t 

Tabl 

e ? 

Code  Generation 

For  Input/Output 

I string 

nume  r i c 

i nput 
s t a t emen  t 

file  read 
or  print 


a area 
d 


bl 


D 


run-time  vonitor  structure 


1 . 0 rgan i z a t i on 

The  Run-Time  Monitor  consists  of  three  mooules*  the 
initializer*  the  interoreter*  and  the  floating  point  pack- 
age. The  initial  oraanization  of  memory  is  shown  in  Figure 
11a.  Execution  of  a basic-E  program  is  accomplished  by 
passing  the  name  of  an  INT  file  to  the  BUILD  initializer 
program.  The  Basic-E  machine  is  then  constructed  above  the 
Build  program  in  memory*  and  control  is  passed  to  the  inter- 
preter. The  entire  Basic-E  machine  is  repositioned  to 
reside  above  the  interpreter  and  execution  of  the  Basic-E 
machine  code  begins.  Execution  continues  until  a XIT 
instruction  is  encountered*  or  a control-z  is  entered  in 
response  to  an  input  statement. 

Initializer  Program 

The  initializer  program  sets  up  the  floating  point 
package  ana  then  opens  the  INT  file  of  the  program  to  be 
executed.  The  Basic-E  machine  is  constructed  by  creating 
the  FDA*  Code  Area  and  Data  area.  The  numeric  constants 
appear  first  on  the  INT  file  separated  by  asterisks.  Each 
constant  is  converted  to  the  internal  floating  point 
representation  ana  stored  in  the  FDA.  The  list  of  constants 
is  terminated  by  a dollar  sign. 

Three  16  bit  binary  numbers  follow  the  constants  in 
the  INI  file*  which  represent  the  size  of  the  code  area* 

6^ 


size  of  the  data  area»  and  the  number  of  entries  in  the  PRT, 
This  allows  the  BUILD  oroqram  to  determine  the  absolute 
address  of  each  Section  of  the  Basic-E  machine.  The 
addresses  of  the  machine  sections  are  oassed  to  the  inter- 
oreter  through  fixed  locations  in  the  floating  point  pack" 
age.  If  sufficient  memory  is  available*  the  generated  code 
is  read  from  the  I^T  file  and  olaced  in  either  the  Data  sec- 
tion or  the  Code  section  of  the  machine.  Constants  from 
data  statements  are  olacea  in  the  data  area.  All  other 
instruction  are  out  in  the  code  area.  In  the  case  of  BPS* 
BKC*  PRO*  CON*  ana  OEF  instructions*  the  aoaress  following 
the  instructions  is  relocated  to  reflect  actual  machine 
addresses.  The  BUILD  program  continues  reading  the  INT  file 
until  a 7FH  instruction  code  is  encountered.  Control  is 
then  passed  to  the  interpreter. 

3.  Interpreter 

The  interpreter  repositions  the  Basic-E  machine  so 
that  the  space  occupied  by  the  BUILD  program  may  be  reused 
(Figure  lib).  The  FSA  and  Basic-E  machine  registers  are 
initialized  and  then  the  proolem  program  is  executed  by 
interpreting  the  Basic-E  machine  instructions.  The  major 
data  structures  in  the  interpreter  are  the  FSA,  stack*  con- 
sole buffer*  and  print  buffer. 

The  organization  of  the  FSA  was  outlined  in  section 
3.  Three  primitive  functions  are  provided  to  manipulate  the 
linked  lists.  GETSPACE(N)  returns  the  address  of  a block  of 
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N consecutive  Dytes  ot  storage  using  a first-tit  algorithm. 
RELtASE  olaces  a block  of  storage  oack  into  the  pool  of 
available  storage.  AVAILABLE  returns  the  number  of  bytes  of 
storage  available  in  the  FSA. 

Arrays*  file  buffers*  and  strings  (with  the  excep- 
tion of  string  constants  defined  in  the  program)  are  dynami- 
cally allocated  in  the  FSA.  Each  allocated  block  of  storage 
has  an  AVAIL  byte  associated  with  it  (see  Figure  2).  lahen 
the  storage  contains  a string  the  AVAIL  byte  indicates  the 
number  of  variables  w^ich  are  referencing  the  string  at  a 
particular  time.  For  examole*  execution  of  the  following 
program  segment; 

Xt  s "A  STRING" 

FOR  I = 1 TO  100 
AS( I ) = XS 
NEXT  I 

would  allocate  storage  for  X$  but  then  each  assignment  of  XS 
to  an  element  of  AS  would  increment  the  AVAIL  counter  and 
not  create  a new  copy  of  the  string.  If  the  AvAIL  byte 
reaches  <fS5  a new  copy  of  the  string  is  created.  ahen  an 
assignment  to  a string  variable  takes  place  and  the  string 
previously  associated  with  that  variable  is  in  the  FSA  (it 
also  may  be  a constant  or  null)  the  AVAIL  byte  of  the  old 
string  is  decremented  and  if  it  is  1 the  space  occuoied  by 
the  string  is  released. 

The  Basic-E  machine  stack  is  imglemented  as  a four 
byte  wide  circular  stack.  The  too  two  elements  are  rA  and 

oa 


1 
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rB.  All  access  to  the  stacK  is  in  terms  o^  these  pointers. 
Primitive  operations  are  provided  to  push  and  poo  the  stac^t* 
interchange  the  top  two  elements*  and  load  a value  onto  the 
stack . 

The  input  buffer  is  a temporary  storage  for  charac- 
ters entered  from  the  console.  The  entire  line  is  read  by 
CP/M  and  placed  into  the  buffer.  Individual  values  are  then 
extracted  as  required  for  POV  and  PCS  macnine  i nst rue t i ons . 

The  print  line  buffer  is  used  to  store  characters  as 
an  output  line  is  developed.  After  all  data  for  a print 
line  has  been  placed  in  the  buffer*  the  data  line  is 
printed.  A bu f f e r-po i n t e r is  used  to  keep  track  of  the  next 
available  position  where  a character  can  be  placed.  The 
buffer-pointer  may  be  repositioned  with  the  N3P  and  TAB 
instructions*  tne  buffer  is  emptied  by  executing  a DBF 
instruction  or  when  the  bu f f er-po i nter  exceeds  the  end  of 
the  print  buffer. 

4.  Floating-Point  Package 

The  floating  point  package  consists  of  a set  of 
subroutines  written  in  8080  assembly  1 anguaqe  which  perform 
arithmetic*  function  evaluation*  and  conversion  operations 
on  Id  bit  floating  point  numbers.  The  package  was  obtained 
from  the  Intel  User  Library  (81. 
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IV 


recommendations  for  extensions  to  8ASIC-E 


I 


There  are  a number  of  ooteniial  extensions  to  the 
Basic-E  language  which  could  be  made.  They  include  format- 
ted i nout /out put » a TRACE  statement  for  debugging,  and  addi- 
tional string  processing  features. 


Basic  processors  have  traditionally  implemented  format- 
ted input/outPut  by  modifying  the  print  statement  as  shown 
below: 

PRINT  USING  <format  string>  ; <expression> 

The  format  string  contains  a description  of  the  format  into 
which  the  values  in  the  expression  list  are  to  be  placed.  A 
disadvantage  cf  including  formatted  I/O  in  Basic-E  is  the 
amount  of  memory  reguired  to  interpret  the  format  strings. 

A TRACE  instruction  would  list  the  source  program  line 
numbers  as  each  statement  was  executed  and  optionally  print 
the  current  value  of  selected  variables.  An  accompanying 
UNTHACE  statement  would  disable  the  trace. 


Addi t i ona 1 
f unc  t i on  which 
within  anot  her, 
wou Id  replace 
string. 


string  operators  could  include  a 
would  determine  the  position  of  one 
and  a substring  replacement  operation 
a substring  with  another  (possibly 


search 

string 

which 

null) 


L 


j 

\ 

i 

] 


X 


! 
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The  above  additions  to  the  8asic-E  language  were  not 
incoroorated  because  of  the  limited  time  available  to  com- 
olete  the  oroject. 


! 


( 


A aesiraole  modification  to  the  design  of  the  Basic"t 
Run-Time  Monitor  would  be  segmenting  the  interpreter  into 
modules  and  then  loading  only  those  modules  which  where 
actually  required  for  the  execution  of  the  program.  This 
would  provide  more  memory  for  the  Basic~E  machine  without 
loss  of  capability.  Possible  segments  might  include  a base 
segment  with  the  numeric  processing  functions#  a transcen- 
dental functions  segment#  a string  processing  segment#  and  a 
file  handling  segment.  Special  purpose  features#  such  as 
matrix  operations  and  plotting  routines#  could  easily  be 
included  as  segments. 


I 
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APPENDIX  I 


BASIC-E  LANGUAGE  maNuAL 


Elements  of  6ASIC-E  are  listed  in  alphabetical  order  in 
this  section  of  tne  manual.  A synopsis  of  the  element  is 
shown,  followed  by  a aescriotion  and  examples  of  its  use. 
The  intent  is  to  provide  a reference  to  the  features  of  this 
implementation  of  BASIC  and  not  to  teacn  the  Basic  Lanquaqe. 

A proqram  consists  of  one  or  more  orooerly  formed 
BASlC-E  statements.  An  END  statement,  if  present,  ter- 
minates the  program,  and  additional  statements  are  ignored. 
The  entire  ASCII  character  set  is  accented,  but  all  state- 
ments may  be  written  using  the  common  6«-character  subset. 

In  this  section  the  "synopsis"  presents  the  general 
form  of  the  element.  Square  brackets  □ denote  an  optional 
feature  while  braces  {}  indicate  that  the  enclosed  section 
may  oe  repeated  zero  or  more  times.  Terms  enclosed  in  < > 
are  either  non-terminal  elements  of  the  language,  which  are 
further  defined  in  this  section,  or  terminal  symbols.  All 
special  characters  and  capitalized  words  are  terminal  sym- 
bols. 


o8 


ABS 


f 

► ELEMENT : 

I AbS  oredefinecJ  function 

i' 

ii  SYNUPSIS: 

I AbS  ( <e*pnession>  ) 

K DESCRIPTIUN; 

*1  The  ABS  function  returns  the  aosolute  value  of  the 

<expression>.  The  argument  must  evaluate  to  a floating 
'i  po  int  number. 

fc  EXAf-'-PLES: 

I AbS(X) 


AbS(X*Y) 


ELEMENT 


ASC 


ASC  oreaefined  function 

synopsis: 

ASC  ( <exoression>  ) 

DESCPIPTIUN: 

The  ASC  function  returns  the  ASCII  numeric  value  of 
the  first  character  of  the  <exoressi on> . The  argument 
must  evaluate  to  a string.  If  the  length  of  the  string 
is  U (null  string)  an  error  will  occur, 

examples  : 

ASC (AS) 

ASC ("X"  ) 

ASC(RIGhTS(Af  , 7)  ) 


'I 
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===== 

atn 

ELEMENT; 

ATN  preaefined  function 

synopsis; 

AfN  ( <expression>  ) 

^ DESCWIPT lUN; 

The  ATN  function  returns  the  arctangent  of  the 
<expness i on> , The  argument  must  evaluate  to  a float- 
ing point  number . 

r. 

t 

examples; 

AIN(X) 

ATN(SQR(SIN(X)  ) ) 

! programming  NOTE; 

All  other  inverse  trigonometric  functions  may  be  com- 
f puted  from  the  arctangent  using  simple  identities. 

I 


ELEMENT 


CHRS 


CHRS  predefined  function 


SYNOPSIS: 

ChRS  ( <expression>  ) 


DESCRIPTION: 

The  CHRS  function  returns  a character  string  of  length 
1 consisting  of  the  character  whose  ASCII  equivalent 
is  the  <exoression>  converted  to  an  integer  nodulo 
l«i8.  The  argument  must  evaluate  to  a floating  point 
numpe  r . 


EXAMPLES: 

CHRS(A) 

CHR$( 12) 

LHR$( (A  + B/C)*3IN(X)  ) 
programming  NOTE; 

ChRS  can  be  usea  to  send  control  characters  such  as  a 
linefeed  to  the  output  aevice.  The  following  state- 
ment would  accomplish  this: 

« 

PRINT  CHRi(lO) 
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ELEMENT 


CLOSE 


CLOSE  statement 

synopsis; 

[<]ine  number>]  CLOSE  <expression>  <e xp r es s i on> > 


DESCRIPTION: 

The  Close  statement  causes  the  file  specified  by  each 
<expression>  to  be  closed.  Before  the  file  may  be 
referenced  aaain  it  must  be  reopened  using  a FILE 
statement . 

An  error  occurs  if  the  specified  file  has  not  previ- 
ously appeared  in  a FILE  statement. 


examples: 


close  1 

IbO  CLOSE  1/  K,  L*M-^4 


programming  NOTE: 

On  normal  completion  of  a program  all  open  files  are 
closed.  If  the  program  terminates  abnormally  it  is 
possible  that  files  created  by  the  program  will  be 
lost. 
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<cons  t ant  > 

ELEMENT ; 

<c  ons  t an  t > 

SYNUPSIS: 

[<siqn>)  <inteqer>  . [ <integer>  ) [E  <sign>  <e*p>  1 

(")  <character  strinq>  (”J 


OESLRIPI ION! 


A <constant>  may  be  either  a numeric  constant  or  a 
string  constant.  Al)  numeric  constants  are  Storeo  as 
floating  point  numbers.  Strings  may  contain  any  ASCII 
character. 

Numeric  constants  may  be  either  a signed  or  unsianea 
integer,  decimal  number,  or  expresseo  in  scientific 
notation.  Numbers  up  to  31  characters  in  length  are 
accepted  but  the  floating  ooint  representation  of  the 
number  maintains  aoproximatly  seven  significant  digits 


maqn i t ude  that 
times  ten  to 
maqn i t ude  that 
times  ten  to 


(1  part  in  lb, 000, 000).  The  largest 
can  be  represented  is  approximately  5.6 
the  38th  PONer,  The  smallest  non-zero 
can  be  represented  is  approximately  2,1 
the  minus  39th  cower. 

String  constants  may  be  up  to  255  characters  in 
length.  Strings  entered  from  the  console,  in  a data 
statement,  or  read  from  a disk  file  may  be  either 
enclosed  in  quotation  marks  or  oelimiteo  by  a comma. 


Strings  used  as  constants  in 
enclosed  in  quotation  marks. 


the  program  must  be 


EXAMPLES: 

10 

-l00.75fa39E-19 
"IMIS  IS  IHE  ANSiNER" 


tLEMENT 


COS 


COS  preaefined  function 
SYNOPSIS : 


1 


cost  <expression>  ) 


OESCRIPT ION; 

COS  is  a function  which  returns  the  cosine  of  the 
<e*press i on> , The  argument  must  evaluate  to  a floating 
point  number  expressed  in  radians, 

A floating  point  overflow  occurs  if  the  absolute  value 
of  the  <expression>  is  greater  than  two  raised  to  the 
2ilth  power  times  pi  radians. 


examples; 

COS(B) 

COS(SQR(X-Y)  ) 


isi 

ELEMENT: 

COSH  predefinea  function 
SYNOPSIS: 

COSH  ( <e*Dression>  ) 


DESCRIPTION: 

COSH  is  a function  which  returns  the  hyperbolic  cosine 
of  the  <e xp res s i on> , The  argument  must  evaluate  to  a 
floating  point  number, 

examples: 

COSH(X) 


C0Sh(XT2+YT^) 


ELEMENT 


DATA 


DATA  statement 
SYNUPSIS: 

I<Hne  numben>)  DATA  <constant>  <constant>> 


DESCKIPTION: 

DATA  statements  define  string  and  floating  point  con- 
stants which  are  assigned  to  variables  using  a READ 
statement.  Any  number  of  DATA  statements  may  occur  in 
a program.  The  constants  are  stored  consecutively  in 
a data  area  as  they  appear  in  the  program  and  are  not 
syntax  checked  by  the  compiler. 

Strings  may  be  enclosed  in  quotation  marks  or  option- 
ally delimited  by  commas. 

examples: 

10  DATA  10.0,11.72,100 

DATA  "XYZ",11.,THIS  IS  A STRING 
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ELEMENT 


DEF 


1 


OtF  statement 


SYNUPSIS: 

(<Hne  number>]  DEF  <function  name>  (<aummy  argument 

list>)  = <exDression> 


DESCRIPTION; 

The  DEF  statement  specifies  a user  defined  function 
which  returns  a value  of  the  same  type  as  the  <func- 
t i on  name>.  One  or  more  <e xo r es s i ons>  are  passed  to 
the  function  and  used  in  evaluating  ttie  expression. 
The  passed  values  may  be  in  string  or  floating  point 
form  but  must  match  the  type  of  the  corresponding 
dummy  argument.  Recursive  calls  are  not  permittee. 

The  <expression>  in  the  definestatement  may  reference 
<variables>  other  than  the  dummy  arguments^  in  which 
case  the  current  value  of  the  <variable>  is  used  in 
evaluating  the  <exoresss i on> . The  type  of  the  func- 
tion must  match  the  type  of  the  <express i on> . 

examples; 

10  DEF  FNA(X,Y)  = x + Y - A 

DEF  FNBS(A$,B$I  = A$  ♦ BS  + C$ 

DEF  FN.C0MPUTE(A,B)  = A + 8 - FNA(A,B)  + 0 


DIM 


ELEMENT ; 

DIM  statement 


SYNUPSIS: 


[tine 


number!  <identifier>  ( <subscript  1ist> 

{»<identifier>  ( <subscript  list>  )! 


DESLRIPnUN: 

The  dimension  Statement  dynamically  allocates  space 
for  floating  point  or  string  arrays.  String  array 
elements  may  oe  of  any  length  uo  to  £55  bytes  ana 
change  in  length  dynamically  as  they  assume  different 
values.  Initially#  all  floating  point  arrays  are  set 
to  zero  and  all  string  arrays  are  null  strings.  An 
array  must  be  dimensioned  exolicitly?  no  default 
options  are  provided.  Arrays  are  stored  in  row  major 
order . 

Expressions  in  subscript  lists  are  evaluated  as  float- 
ing point  numbers  and  rounded  to  the  nearest  integer 
when  determining  the  size  of  the  array.  All  sub- 
scripts have  an  implied  lower  bound  of  0. 

When  array  elements  are  referenced  a check  is  made  to 
ensure  the  element  resides  in  the  referenced  array. 


examples; 

DIM  A(10,£0),  8(10) 

DIM  83(2,5# 10), C(I  t 7.3#N),D(I) 
DIM  X(A(I)#M#N) 


PR0(iRAMMlNG  NOTE: 

A <UIM  statement>  is  an  executable  statement#  and  each 
execution  will  allocate  a new  array. 


7R 


tNO 

ELEMENT  : 

END  statement 

SYNUPalS; 

(line  number)  END 


DESCWIP) ION: 

An  END  statement  indicates  the  end  of  the  source  pro- 
gram. It  is  optional  and»  if  presents  it  terminates 
reading  of  the  source  program.  If  any  statments  fol- 
low the  END  statement  they  are  ignored. 


examples: 

1 0 END 
END 
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ELEMENT 


EXP 


EXP  ( <expression>  ) 


DESCRIPTION: 

The  EXP  function  returns  e ( i?  . 7 1 028  . . . . ) raised  to  the 
Dower  of  the  <exDress i on> . The  argument  must  evaluate 
to  a floating  point  number. 

If  the  value  of  the  <expression>  exceeds  two  to  the 
127th  power»  a floating  point  overflow  occurs. 

examples: 

EXP(X) 


EXP(L0G(X) 1 


ELEMENT 


<express i on> 


^express i on> 


OESCRiPl ION; 

Expressions  consist  of  algebraic  combinations  of  vari- 
ables»  constantSf  and  ooerators.  The  hierarchy  of 
operators  i s : 

U () 

2)  t 

5)  / 

ii)  +»  -r  concat  ( + )»  unary  +f  unary  - 

5)  relational  ops  <»  <=r  >r  >~,  -•  <> 

LT,  LE,  GT,  GE,  EQ,  NE 

6)  NOT 

7)  AND 

8)  OR,  XOR 

Relational  operators  result  in  a 0 if  false  and  -I  if 
true.  NOT,  AND,  and  OR  are  performed  on  32  bit  two's 
complement  binary  rep  resen t a t i on  of  the  integer  por- 
tion of  the  variable.  The  result  is  then  converted  to 
a floating  point  number.  String  variables  may  be 
operated  on  by  relational  ooerators  and  concatenation 
only.  Mixed  string  and  numeric  ooerations  are  not  per- 
mitted. 


examples : 

X + Y 
AS  B5 

(A  <=  B)  OR  (C3  > OSl  / (A  - 3 AND  D) 
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ELEMENT 


FI 


FILE  statement 


SYNOPSIS; 


[ < 1 i ne 


i 


number>)  FILE  <variable>  I ( <e *p re s s i on> ) ] 
{»  < V a r i ab 1 e> ( ( <e xD res s i on> ) ] } 


OESCPIPTION; 

A file  statement  ooens  files  used  by  t^e  program.  The 
order  of  the  names  determines  the  numbers  used  to 
reference  the  files  in  READ  and  PRINT  statements.  The 
value  assigned  to  the  f'rst  simple  variable  is  filel# 
the  second  is  file  and  so  forth.  There  may  be  any 
number  of  FILE  statements  in  a program/  but  there  is  a 
limit  to  the  number  of  files  which  may  be  opened  at 
one  time.  Currently  this  limit  is  set  at  6 files. 

The  optional  <expression>  designates  the  logical 
record  length  of  the  file.  If  no  length  is  specified/ 
the  file  is  written  as  a continuous  string  of  fields 
with  carriage  return  linefeed  characters  separating 
each  record.  If  the  record  length  is  present/  a car- 
riage return  linefeed  will  be  appended  to  each  record. 
The  <variable>  must  not  be  subscripted  and  it  must  be 
of  t ype  string. 


EXAMPLES: 

FILE  INPUTS/  OUTPUTS 

FILE  TABLE. INC5/  T A x . I NC f (1 6 0 } / P A Y . AM T . D A Y $ ( N * 3- J ) 


I 

i 

1 

1 


1 


1 


programming  NOTE: 

The  run-time  monitor  will  always  assign  the  lowest 
available  (not  previously  assigned)  number  to  the  file 
beina  opened.  Thus  if  files  are  closed  and  others 
opened  it  is  possible  that  number  assignment  may  vary 
with  program  flow. 


FOR 

ELEMtiMT  ; 

FUR  statefiient 

SYNOPSIS; 

t<line  numb5T>]  FOR  <index>  = <expression>  TO 

<expression>  [STEP  <express i on>] 


OESCRIPF ION: 

Execution  of  all  statements  between  the  FOR  statement 
and  its  corresoondi nq  NEXT  statement  is  repeatea  until 
the  indexing  variable,  which  is  incremented  by  the 
STEP  <expressicn>  after  each  iteration,  reaches  the 
exit  criteria.  If  the  steo  is  positive,  the  loop  exit 
criteria  is  that  the  index  exceeas  the  value  of  the  TO 
<e xpr es s i on> , If  the  step  is  negative,  the  index  must 
be  less  than  the  TO  <expression>  for  the  exit  criteria 
to  be  met. 

The  <index>  must  be  an  unsubsc r i ot ed  variable  and  is 
initially  set  to  the  value  of  the  first  <e xo r es s i on> . 
Both  the  TO  and  STEP  expressions  are  evaluated  on  each 
loop,  and  all  variables  associatea  with  the  FOR  state- 
ment may  change  within  the  loop.  If  the  STEP  clause 
is  omitted,  a default  value  of  1 is  assumed.  A FOR 
loop  is  always  executed  at  least  once.  A step  of  0 
may  be  used  to  looo  indefinitely. 


EXAMPLES: 

FOR  I = 1 TO  10  STEP  3 

FOR  INDEX  = J*K-L  TO  10*SIN(X) 

FUR  I = 1 TO  2 STEP  0 


PHOURAMMING  NOTE: 

If  a step  of  1 is  desired  the  step  clause  shoula  be 
omitted.  The  execution  will  be  substantially  faster 
since  less  runtime  checks  must  be  made. 


ea 


FHE 


ELEMENT ; 

FKE  Dredefined  function 


SYNUPSIS : 
FHE 


DESCHIPflUN: 


The  FRE  function  returns  the  number  of  bytes  of  unused 
space  in  the  free  storage  area. 


example : 

FHE 


I 


description; 

Any  <identtfier>  starting  with  FN  reters  to  a user** 
defined  function.  The  <function  name>  trust  appear  in  a 
DEF  statement  prior  to  being  used  in  an  <expression>. 
There  may  not  be  any  spaces  between  the  FN  and  the 
<identifier>. 


examples: 

FNA 

FN. BIGGER. 3 
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.M 


GOSUB 

ELEMENT ; 

GOSUB  statement 


SYNOPSIS: 

I<Hne  number>)  GOSUB  <)ine  number> 
[<line  number>]  GO  SUB  <line  number> 


DESLPIPI lUN: 

The  address  of  the  next  sequential  instruction  is 
saved  on  the  run-time  stact«»  ana  control  is 
transferred  to  the  subroutine  labeled  v«ith  the  <line 
number>  following  the  GOSUP  or  GO  SUB. 


EXAMPLES: 

lU  GOSUB  300 
GO  SUB  100 


PROGRAMMING  NOTE: 

The  max  deoth  of  GOSUB  calls  allowed  is  controlled  by 
the  size  of  the  run-time  stack  which  is  currently  set 
at  12. 


j 

i 


1 

i 

: 

I 
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ELEMENT 


GOTO 


GOTO  statement 


SYNOPSIS: 

t<line  number>l  GOTO  <Hne  number> 

Inline  number>l  GO  TO  <Hne  number> 

DESCRIPTION; 

Execution  continues  at  the  statement  labeled  with  the 
< 1 i ne  number>  following  the  GOTO  or  GO  10. 

EXAMPLES; 

100  GOTO  50 
GO  TO  10 


ELEMENT 


< i dent i f i e r > 


< i dent i t i e r > 
synopsis: 

<)etter>  { <letter>  or  <nunNber>  or  . I [ S J 
DESCRIPTION: 

An  identifier  begins  v«  i t h an  alphabetic  character  fol- 
lowed by  any  nuTiber  of  a 1 ph  anuire  r i c characters^  or 
periods.  Only  the  first  31  characters  are  considered 
unique.  If  the  last  character  is  a dollar  sign  the 
associated  variable  is  of  type  string#  otherwise  it  is 
of  type  floating  point. 

examples: 

A 

BS 

XYZ .ABC 

PAY. RECORD. FILE. NUMBER.  7 6 

prooramming  note: 

All  lowercase  letters  appearing  in  an  <identifier>  are 
converted  to  uppercase  unless  compiler  toggle  D is  set 
to  off. 


ELEMENT 


IF 


r 


IF  statement 


SYNOPSIS: 


[< 1 i ne 

numoer>) 

IF 

<express i on> 

Then 

< 1 i ne  numbe  r> 

[ < 1 i ne 

numbe  r > 1 

IF 

<express i on> 

THEN 

<st  at  ement 

1 i St  > 

[< 1 i ne 

numbe  r > 1 

IF 

<expressi on> 

THEN 

ELSE 

<statement 

<statement 

1 i s t > 
1 i s t > 

DESLRIPI ION; 

If  the 

value  of 

the 

<expressi on> 

i s 

not  0 the 

state 

ments  which  make  uo  the  <statement  1ist>  are  executed. 

Otherwise  the  <statement  list>  following  the  ELSE  is 
executea»  if  presents  or  the  next  seauential  statement 
is  executed. 

In  the  first  form  of  the  statement  if  the  <expression> 
is  not  eaual  to  0,  an  unconditional  branch  to  the 
label  occurs. 

examples: 

IF  AS  < B$  THEN  X=  Y*Z 
IF  (A$<BS)  ANO  (C  OH  D)  THEN  300 

IF  ti  THEN  X = 3.0  : GOTO  200  j 

I 

IF  J AND  K THEN  GOTO  11  ELSE  GOTO  12  I 

I 

1 


1 


j 


ELEMENT 


IF  END 


IF  E.NO  statement 


SYNOPSIS: 


t< 1 i ne 
numbe  r > 


number>J  IF  END  )Y<express  i on>  THEN  <Hne 


DESCRIPTION; 


If  during  a read  to  the  file  specified  by  the  <expres» 
sion>»  an  end  of  file  is  detected  control  is 
transferred  to  the  statement  labeled  with  the  line 
number  following  the  THEN. 


examples  ; 


IF  END  » 1 THEN  100 


10  IF  END  n FILE. NUMBER  - INDEX  THEN  700 


PROORAMHING  NOTE; 


On  transfer  to  the  line  number  following  the  THEN  the 
stack  is  restored  to  the  state  prior  to  the  execution 
of  the  READ  statement  which  caused  the  end  of  file 
condition. 
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t. 

'i 


!; 


ii 


INP 

ELEMENT: 

INP  predefined  function 
SYNUPSIS: 

InP  ( <expression>  ) 

DESCRIPTIUN: 


The  INP  function  performs  an  input  operation  on  the 
80B0  machine  port  represented  by  the  value  of  the 
<expression>  mooulo  2St>  returnim  the  resulting  value. 
The  argument  must  evaluate  to  a floating  point  number. 


examples: 

INP(2) 

INP (CURRENT. INPUT. PORT) 


I 


I 


I 


; 

i 

S 
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element 


INPUT 


INPUT  statement 


SYNUPSIS: 

[<1ine  number>l  INPUT  [<Drompt  string>  »J 
<variab1e>  <»  <van'able>  I 


DESLRIPI lUN: 

The  <Drompt  string>»  if  DPesent»  is  printed  on  the 
console.  A line  of  incut  data  is  read  from  the  con- 
sole ana  assigned  to  the  variables  as  they  apoear  in 
the  variable  list.  The  data  items  are  separated  by 
commas  and/or  blanks  ana  terminated  by  a carriage 
return.  Strings  may  be  enclosed  in  quotation  marks. 
If  a string  is  not  enclosed  by  quotes#  the  first  comma 
terminates  the  string.  If  more  aata  is  requested  than 
was  entered#  or  if  insufficient  aata  items  is  entered# 
a warning  is  printed  on  the  console  ana  the  entire 
line  must  be  reentered. 


EXAMPLES: 

10  INPUT  A#B 

INPUT  "SIZE  OF  array?";  N 

INPUT  "VALUES?";  A ( I)  , B ( I ) , C ( A ( I ) ) 


programming  NOTE: 

Trailing  blanks  in  the  <prompt  string>  are  ignored. 
One  blank  is  always  supplied  by  the  system. 


ELEMENT 


INT 


INT  predefined  function 
SYNOPSIS; 

INT  ( <e*pression>  ) 

DESLRIPT lUM; 

The  INT  funct’on  returns  the  laraest  integer  less  than 
or  equal  to  the  value  of  the  <express i on> . The  argu- 
ment must  evaluate  to  a floating  point  number. 

examples; 

INT  C AMOUNT  / 100) 

INT(3  * X * SIN( Y)  ) 

/ 

1 

1 

1 
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ELEMENT 


LEFTS 


!■: 


LEFTS  oredefinec  function 


SYNUPbIS: 

LEFTS  ( <expression>  , <expression>  ) 


OESLRIPT lUN: 

The  LEFTS  function  returns  the  n leftmost  characters 
of  the  first  <express i on>/  where  n is  equal  to  the 
integer  oortion  of  the  second  <e xp r e s s i on>  . An  error 
occurs  if  n is  negative.  If  n is  greater  than  the 
length  of  the  first  <exoression>  then  the  entire 
expression  is  returned.  The  first  argument  must 
evaluate  to  a string  and  the  second  to  a floating 
point  number . 


examples: 

LEFTS  (AS, 3) 

LEF I S(CS+D£, I-J) 


) 


i 


I 


LEN 


I ELEMENT; 

i LEN  Dpedefined  function 

t 

: SYNOPSIS: 

[.  LEN  ( <e*Dression>  ) 

i- 

I DESLRIPIIUN: 

The  LEN  function  returns  the  length  of  the  string 
<e*pression>  oassed  as  an  argument.  Zero  is  returned 
!•  if  the  argument  is  the  null  string. 

? 

1 

' EXAMPLES; 

I LEN(AJ) 

I LENICS  + BS) 

1 LENILASTNAMES  ♦ + FIRSTNAMES) 


I 


E 

I 


J 


ELewEi'jT 


LET 


LET  s t a t emen  t 
SYNOPSIS; 


I 


t<Hne  number>J  (LET]  <variable>  = <exDPession> 


DESLRIPI ION: 

The  <expression>  is  evaluated  and  assigned  to  the 
<variable>  aooearinq  on  the  left  side  of  the  equal 
sign.  The  type  of  the  <e xp ress i on> , either  floating 
point  or  strinq.  n^st  -natch  the  type  of  the  <vari- 
ab 1 e> . 


examples ; 


100  LET  A = B ♦ C 

X(5,A)  = 7.32  * Y + x(2,3) 

73  W = (A<b)  OR  (CS>D$) 

amounts  = OOLLARSS  ♦ + CENTSS 


R7 


r 


< H ne  number> 


tLEMENT : 

< 1 i ne  numoe r > 

SYNOPSIS ; 

<aigit>  { <c3iqit>  > 

OESORIPT ION: 

<Hne  numbers>  are  ootional  on  all  statements  and  are 
ignored  by  the  compiler  except  when  they  appear  in  a 
GOTO*  GOSUB,  or  ON  statement.  In  these  cases»  the 
<line  number>  must  appear  as  the  label  ot  one  and  only 
one  <statement>  in  the  program. 

<line  numbers>  may  contain  any  number  of  digits  but 
only  the  first  51  are  considered  significant  by  the 
comp i 1 e r . 


examples : 

100 

^635276353 


ELtMENT 


LOG 


LUG  predefined  function 
SYNUPSla: 

LOG  ( <e><press  i on>  ) 

DESCPIPTIUN; 

The  LOG  function  returns  the  natural  logarithm  of  the 
absolute  value  of  the  <e xp r ess i on>  , The  argument  must 
evaluate  to  a non-zero  floating  point  number. 


Examples ; 

LOG  (X) 

LOG((A  ♦ B)/D) 

LOGIC  = LUG(X)/LOGnO) 


26W 


ELEMENT 


MIDS 


MlDi  oredefined  function 


SYSNOPSIS; 

MlDS  ( <expression>  , <e*pression>  , <expression>  ) 


DESCRIPI lUN: 

The  MIDS  function  returns  a string  consisting  of  the  n 
characters  of  the  first  <expression>  starting  at  the 
Tth  character.  The  value  of  n is  equal  to  the  integer 
portion  of  the  second  <expression>  while  n is  the 
integer  portion  of  tne  third  <e x c r e s s i on > . 

The  first  arqu'i'ent  must  evaluate  to  a string,  and  the 
second  and  third  arquments  must  be  floating  point 
numbers.  If  m is  greater  than  the  length  of  the  first 
<expression>  a null  string  is  returned.  If  n is 
greater  than  the  number  of  characters  left  in  the 
string  all  the  characters  from  the  mth  character  are 
returned.  An  error  occurs  i f m or  n is  negative. 


examples: 

MiOSIAS, I , J) 

MlD$(S5+Ci,START,LENGlH) 


I 00 


I 


NEXT 

ELEMENT: 

NEXT  s t a t emen  t 

SYNOPSIS ; 

(<Hne  number>]  NEXT  ( < i den  t > f i e r>  T » < i den  t i f i e r > > ] 


DESCRIPTION; 

A NEXT  statement  denotes  the  end  of  the  closest 
unmatched  FOR  statement.  If  the  optional  <identifier> 
is  present  it  must  match  the  inoex  variable  of  the  FOR 
statement  being  terminated.  The  list  of  < i oent i f i e r s> 
allows  matching  multiple  FOR  statements.  The  <line 
number>  of  a NEXT  statement  may  appear  in  an  ON  or 
GOTO  statement/  in  which  case  execution  of  the  FOR 
loop  continues  with  the  loop  variables  assuming  their 
current  values. 


Examples: 

10  NEXT 
NEXT  I 


NEXT  If  J f K 


( 


i 

1 


ELEMENT 


On  statement 
SYNOPSIS: 


( 1 ) 

t<l i ne 

number>) 

ON  <expression>  GOTO 
<Iine  number>  {,  <line 

numbe  r> } 

(2) 

l< 1 i ne 

number>) 

ON  <expression>  GO  TO 
<line  number>  (,  <line 

numbe  r>  > 

(3) 

t < 1 i ne 

number>] 

ON  <expression>  GOSuB 
<line  number>  (,  <line 

number> } 

(4) 

[ < 1 i ne 

numbe  r > 1 

On  <expression>  GO  SUB 
<line  number>  (,  <)ine 

numbe  r>  > 

DESCRIPTION: 

Tne  <exDress i on> » rounded  to  tHe  nearest  integer 
value»  is  usea  to  select  the  <Hne  number>  at  which 
execution  will  continue.  If  the  <expression>  evalu- 
ates to  1 the  first  <line  nunber>  is  selected  and  so 
forth.  In  the  case  of  an  ON  ...  GOSUB  statement  the 
address  of  the  next  instruction  becomes  the  return 
aadress . 

An  error  occurs  if  the  <exoression>  after  rounding  is 
less  than  one  or  greater  than  the  number  of  <line 
numbers>  in  tne  list. 

examples: 

10  ON  I GOTO  10,  20,  30,  ao 


ON  J*K-W  GO  SUB  10,  1,  1,  10 


OUT 

ELEMENT ; 

OuT  statement 

SYNOPSIS; 

[<Hne  number>]  OUT  <expression>  , <expression> 


DESCRIPTION: 

The  low-order  eight  bits  of  the  integer  portion  of  the 
second  <expression>  is  sent  to  the  8080  machine  output 
port  selected  by  the  inteoer  portion  of  the  first 
expression  modulo  ^56.  Both  arguments  must  evaluate 
to  floating  ooint  numbers. 


examples; 

100  OUT  5,  10 

OUT  POPT.NUM,  NEXT. CHAR 


ELLMENT 


POS 


PUS  oreaefined  function 

SYNOPSIS: 

POS 

OEStPlPI ION; 

The  POS  function  returns  the  current  position  of 
output  line  buffer  pointer.  This  value  will 
from  1 to  the  print  buffer  size. 

EXAMPLE: 

PRINT  TAti(POS  f 3);X 


1 oa 


the 

range 


ELEl^ENT 


PRINT 


PkINT  stat  ewen  t 


SYNUPSI S: 

(1)  l<Hne  number>)  PRINT  a<e*opess  i on>  » <e*press  t on>; 

<expression>  <expPession>  > 

(^)  (<line  number>)  PRINT  a <e*pPession>  ; 

<expression>  {,  <excression>  > 

(i)  [<Hne  number>l  PRINT  <exDression>  <c)elim> 

{ <expression>  <cJeIiP'>  I 


DE3C91PI ION: 

ft  PRINT  statement  sends  the  value  of  the  expressions 
in  the  exoression  list  to  either  a disk  file  (type(l) 
and  (?))  or  the  console  (type  (5)).  ft  type  (1)  PRINT 
statement  senos  a random  record  specified  py  the 
second  <exoression>  to  the  disk  file  specified  by  the 
first  <express 1 on> . An  error  occurs  if  there  is 
insufficient  space  in  the  record  for  all  values, 
ft  type  (2)  PRINT  statement  cutouts  the  next  seduential 
record  to  the  file  specified  by  the  <exoression>  fol" 
lowing  the  a . 

ft  type  (5)  PRINT  statement  outputs  the  value  of  each 
<expression>  to  the  console.  A space  is  aopenoed  to 
all  numeric  values  and  if  the  numeric  item  exceeds  the 
right  margin  then  the  print  puffer  is  dumped  before 
the  item  is  printed.  The  <aelim>  between  the  <expres- 
sions>  may  be  either  a comma  or  a semicolon.  The 
comma  causes  automatic  spacing  to  the  next  tab  posi- 
tion ( 1 , 28  » ^2 » 5fa  ) . If  the  current  print  position  is 
greater  than  5b  then  the  print  buffer  is  printed  ana 
the  print  position  is  set  to  zero.  A semicolon  inoi- 
‘cates  no  spacing  between  the  printed  values.  If  the 
last  <expression>  is  not  followed  by  a <delim>  the 
print  buffer  is  dumped  and  the  print  position  set 
equal  to  zero.  The  buffer  is  automatically  printed 
anytime  the  print  position  exceeds  71. 


examples; 

loo  PRINT  9 1 ; ft A5+" *" 

PRINT  a FILtrWHERE;  ft/P,0,"EN0" 
PRINT  ft,  8,  "THE  ANS'.VER  IS”;  x 


ELEMENT 


RANDOMIZE 


Randomize  statenent 
SYNOPSIS; 

[<line  number>]  RANDOMIZE 
DESORIPIION; 

A RANDOMIZE  Statement  initializes  t^e  ranaom 
generator  , 

examples: 

10  randomize 
randomize 


1 Oo 


number 


ELEMENT 


READ 


Rt  Au  s t a t e'T'en  t 


SYNUPSIS  : 

(1)  C<Mne  nu'TiDer>)  READ  <e*oress  i on>  f <e*press  i on> ; 
<varian)e>  it  <vapiacile>  ) 

id)  l<1ioe  number>)  READ  « <e xp r es s i on>  ; 

<vanab)e>  (,  <variable>  } 

(i)  f<Hne  numDer>)  READ  » <variable>  it  <variable>  ) 


OESLRIPT lUN; 

A READ  statement  assigns  values  to  variables  in  tne 
variable  list  from  either  a file  (type  id ) ano  (3))  or 
from  a DATA  statement  (type  (IT).  Type  id)  reads  a 
ranaom  record  specified  by  the  second  expression  from 
the  disk  file  specified  oy  the  first  expression  and 
assigns  the  fields  in  the  record  to  the  variables  in 
the  variable  list.  Fields  may  be  floating  point  or 
string  constants  and  are  delimited  by  a blanx  or 
comma.  Strings  may  optionally  be  enclosed  in  quotes. 
An  error  occurs  if  there  are  more  variables  tnan 
fields  in  the  record. 

The  type  (5)  READ  statement  reads  the  next  secuential 
record  from  tne  file  specified  by  the  expression  and 
assigns  the  fields  to  variables  as  described  above. 

A type  id)  READ  statement  assigns  values  from  DATA 
statements  to  the  variables  in  the  list.  DATA  state- 
ments are  processed  sequentially  as  they  appear  in  the 
Program.  An  attempt  to  read  oast  the  enq  of  the  last 
data  statement  produces  an  error. 


examples  ; 


100 

read 

A. 

a,  C l 

^00 

READ 

a 

1 1 It 

PAY 

. RE G, PAY. OT, hours. REG, H OURS. OT 

READ 

a 

FILE 

.no; 

NAMES,  ADORE  SSS,  PHONE  Is,  ZIP 

107 


REM 

ELEMENT; 

REM  statement 

SYNOPSIS: 

[<line  numbeOl  REM  [<remartc>] 

[<1ine  number>l  REMARK  [<remark>] 


DESLRIPT lUN: 

A REM  statement  is  ionorea  by  tne  compilep  and  compi- 
lation continues  witR  the  statement  following  the  next 
carriage  return.  The  REM  statement  may  be  useo  to 
document  a program,  R£m  statements  do  not  affect  the 
size  of  oroqram  that  may  oe  compiled  or  executed.  An 
unlabeled  REM  statement  may  follow  any  statement  on 
the  same  line.  And  the  <line  numoer>  may  occur  in  a 
GUTO»  GOSUB  or  ON  statement. 


examples: 

10  REM  THIS  IS  A REMARK 

REMARK  THIS  IS  ALSO  A REMARK 
LET  X = 0 REM  INITIAL  VALUE  OF  X 


1 OB 


1 


ELEMENT: 

reservea  word  list 


reserved  word  list 


SYNOPSIS: 

<letter>  ( <letter>  > [ S 1 


DESLRIPI ION; 


The  following  words  are  reserved  by 
not  be  used  as  < i dent i f i ers> : 

8ASIC-E 

and  may 

ABS 

AND 

ASC 

ATN 

ChHS 

CLOSE 

COS 

COSri 

DATA 

DEF 

DIM 

ELSE 

END 

EQ 

EXP 

PILE 

FOR 

FRE 

GE 

GO 

GUSUB 

GOTO 

GT 

IF 

INP 

INPUT 

I NT 

LE 

LEFTS 

LEN 

LET 

LOG 

LT 

MIDS 

fJE 

NEXT 

NOT 

ON 

OR 

OUT 

PUS 

PRINT 

RANDOMIZE 

READ 

REM 

RES  I ORE 

RE  TURN 

RIGHTS 

RND 

SGN 

SiN 

SINh 

SOR 

STEP 

STOP 

SIRi 

SUB 

TAB 

TAN 

THEN 

TO  VAL 


Reserved  words  •’lust  be  oreceeded  and  followed  by 
either  a special  character  or  a space.  Spaces  may  not 
be  emoedded  within  reserved  words.  Unless  compiler 
todgle  0 is  set»  lowercase  letters  are  converted  to 
uppercase  prior  to  checkinq  to  see  if  an  <identifier> 
is  a reserved  word. 


1 


.( 

i 


1 OR  j 

J 


■1 


1 

! 


ELEMENT : 

RESIORE  statement 


RESTORE 


SYNOPSIS: 

[<line  number>)  RESTORE 


DESLRIPT ION: 

A RESTORE  statement  repositions  the  pointer  into  the 
data  area  so  that  the  next  value  read  with  a READ 
statement  will  be  the  first  item  in  the  first  DATA 
statement.  The  effect  of  a RESTORE  statement  is  to 
allow  rereaainq  the  DATA  statements. 


examples: 

RESTORE 
10  RESTORE 


1 1 0 


WtTUR.N 

ELEMENT: 

RETURN  statement 
SYNUPSIS : 

[<Hne  number>]  RETURN 
DESCRIPI lUN: 

Control  is  returned  from  a subroutine  to  the  calling 
routine.  The  return  address  is  maintained  on  the  too 
of  the  run-time  monitor  Stack.  No  check  is  made  to 
insure  that  tne  RETURN  follows  a GUSUd  statement. 

example^: 

liO  RETURN 
RETURN 


HIGHTi 

ELEMENT ; 

RIGHTS  predefined  function 

synopsis: 

RIGHTS  ( <expression>  » <expression>  ) 


OESCRIPI lUN; 

The  RIGHTS  function  returns  the  n rightmost  characters 
of  the  first  <exorssion>.  The  value  of  n is  eauai  to 
the  integer  portion  of  t^ie  second  <exoression>.  If  n 
is  negative  an  error  occurs?  if  n is  greater  than  the 
length  of  the  first  <exoression>  then  the  entire 
<expression>  is  returned.  The  first  argument  must 
oroouce  a string  and  the  second  must  oroauce  a float- 
ing point  numoe r . 


Examples : 

RIGhTSCXS,  1 ) 

RIGHTSfN AMES, LNG. last; 


ELEMENT 


RND 


r 


RND  oredefined 


f unc  t ion 


SYNUPSia : 

RND 

DESLRIPI lUN; 

The  RND  function  qenerates  a uniformly  aistriouted 
random  number  between  0 and  1. 


EXAMPLE; 

RND 


1 

1 

I 

I 

i 


1 1 i 


J 


ELEMENT : 


SGN  predefined  function 
SYNOPSIS; 

SGN  ( <expression>  J 


DESCRIPTION; 

The  SGN  function  returns  1 if  the  value  of  the 
<expression>  is  greater  than  0»  ~1  if  the  value  is 
less  than  0 and  0 if  the  value  of  the  <expression>  is 
0,  The  argument  must  evaluate  to  a floating  point 
number  . 


examples; 

SGNIX  ) 


SGN(A  - B C) 


SIN 

SIN  oredefined  function 

synopsis: 

SIN  ( <expression>  ) 

DESCRIPTION: 

SIN  is  a predefined  function  which  returns  the  sine  of 
the  <expression>.  The  argument  must  evaluate  to  a 
floating  point  number  in  radians. 

A floating  point  overflow  occurs  if  the  absolute  value 
of  the  <expression>  is  greater  than  two  raised  to  the 
24th  power  times  pi. 

EXAh'PLES: 

X = SINCYl 
SIN(A  - B/C) 


ELEMENT 


SINM 


SINH  prefleTined  function 

synopsis: 

SINM  ( <exOPession>  ) 


OESLRiPT lUN; 

SiNH  is  a function  which  returns  the  hyperbolic  sine 
Qf  the  <e*oress i on> . The  argument  must  evaluate  to  a 
floating  point  number. 

EXAMPLES: 

SlNh(Y  ) 


S1MM(B<C) 


ELEMENT 


special  characters 


spec ial  characters 


DESCRIPI lUN; 


The  following 
t 
( 

) 

* 

♦ 


/ 


t 


< 


> 


H 

I 

CR 

\ 


special  characters  are  used  by 
c i rc  um  f 1 e X 
open  parent  hes  i s 
closea  parenthesis 
asterisk 
plus 
minus 
slant 
colon 
semicolon 
1 ess”t  han 
area  t er-t  ban 
equal 

numbe  r-s i gn 
comma 

c a r r i age  return 
backslant 


bASIC-E  : 


Any  special  character  in  the  ASCII  character  set  may 
appear  in  a string.  Special  characters  other  than 
those  listed  abovef  if  they  appear  outside  a string^ 
will  generate  an  IC  error. 


! 


1 1 7 


ELEMENT  ; 

<statment  > 


<stateirent> 


SYNOPSlb: 

[ < li  ne 
[ < H ne 
( < 1 i ne 
t < 1 i ne 
( < H ne 

DESCRIPI  lUN; 


mj'Tibe  r > 
nij^be  r > 
numbe  r> 
numbe  r > 
nunnbe  p > 


1 

] 

] 

1 

1 


<state'T'ent  1ist>  <cr> 
IF  stateTient  <cr> 

OJM  statement  <cr> 

OEF  statement  <cr> 

END  statement  <cp> 


All  8ASIC-E  statments  are  terminated  by  a carriage 
return  ( <c  r>  ) . 


ELEMENT  ; 


<statement  Mst> 


<statment  Hst> 


SYNUPSIb : 

<sirrple  state'"ent>  T:  <simple  statement>  > 

where  a <si'Ttple  statement>  is  one  of  the  following: 

FOR  s t a t emen  t 
NEXT  statement 
FILE  stat emen t 
Close  statement 
G0SU8  statement 
GOTO  st  atment 
INPUT  statement 
LET  statement 
ON  statement 
PRINT  stat  emen  t 
MEAD  statement 
RESTORE  statement 
RETURN  statement 
RANDOMIZE  statement 
OUT  stat  emen  t 
STOP  st  atement 
<empty>  statement 

DESCRIPTION; 

A <statement  1ist>  allows  more  than  one  <statement>  to 
occur  on  a single  line. 

examples: 

LET  1=0;  LET  J = 0 ; LET  K = 0 
X = Y + Z/iv  ; RETURN 


PRINT  "This  IS  OK  TOO" 


1 Oo 


STRS 

ELEMENT  : 

SIRS  predefine!:!  function 


SYNOPSIS:  ' 

SIRS  ( <exDPession>  ) 

DESCRIPTION:  i 

I 

The  STR$  function  returns  the  ASCII  string  which 
represents  the  value  of  the  <express i on> . The  araument 
must  evaluate  to  a floating  point  number. 

examples: 

STRS(X)  ' 

STRS(3. laibl 7) 

i 

M 


<sub  sc  r i p t 1 i s t > 


SYMUPSib: 

I ’ <e*press i on>  {,  <expression>  } 

1 

DEStRlPT lUN; 

A <supscript  list>  nnay  be  used  as  part  of  a <lirM 
staterrent>  to  specify  t^^e  number  of  dimensions  and 
extent  of  each  oimension  of  tne  array  oeing  declared 
or  as  oart  of  a <subscrioteo  variable>  to  indicate 
which  element  of  an  array  is  being  referenced. 

There  mav  be  any  number  of  exoressions  but  each  must 
evaluate  to  a floating  point  number.  A <subscript 
list>  as  part  of  a DIM  statement  may  not  contain  a 
reference  to  the  array  being  dimensioned. 


EXAMPLES; 

X(10,^0,?0) 

Y$(i, J) 

CUSl (AMT(I),PRICE(I)) 


SUR  ( <exoression>  ) 


DESCRiPI lUN: 

SQR  returns  the  square  root  of  tHe  absolute  value  of 
the  <express i on> . The  argument  must  evaluate  to  a 
floating  DOint  number. 


examples  : 

SCJR  (Y) 

SQR(Xt2  + YT^) 


122 


element 


TAb 


TAB  oreaeTined  function 
SYN'UPSib: 

TAB  ( <e*pression>  ) 


DESLRiPnoN; 

The  TAB  function  positions  the  output  buffer  pointer 
to  the  position  specified  bv  the  integer  value  of  the 
<e>«press  i on>  rounded  to  the  nearest  integer  modulo  73, 
If  the  value  of  the  rounded  expression  is  less  than  or 
equal  to  the  current  print  position,  the  print  buffer 
is  dumped  and  the  buffer  pointer  is  set  as  described 
above . 

The  TAB  function  may  occur  only  in  PRINT  s t a t e^'en  t s . 


examples: 

T AB( 10) 


TAB(I  + 1) 


ELEMENT 


STOP 


STOP  stateT'ent 

synopsis: 

[<Hne  number>)  STOP 


DESLRIP I ION; 

Upon  encountering  a <ST0P  statement>  prograrr  execution 
terminates  and  all  ooen  files  are  closed.  The  print 
buffer  is  emptied  and  control  returns  to  the  host  sys- 
tem, Any  number  of  STOP  statements  may  a. pear  in  a 
program . 

A SlOP  statement  is  aopenaed  to  all  oroarams  oy  the 
comp i 1 er . 

E X AHPlES : 

10  STOP 
STOP 


Ua 


ELEMENT 


tan 


TAN  oredefined  function 

synopsis: 

TAN  ( <expression>  ) 

DESLRIPl ION: 

TAN  is  a function  which  returns  the  tangent  of  tt>e 
expression.  The  argument  must  oe  in  radians. 

An  error  occurs  if  the  <expression>  is  a multiple  of 
p i r ad  i ans  . 


Examples: 

10  TAN (A3 

TAM(X  - 3*COS(Y3) 


\ 


1^5 


ELLMENT 


VAL 


VAL  Dredefined  function 


SYNuHSIii: 

VAL  ( <e*Dression>  ) 


OtSL«IPr lUN: 

The  VAL  function  converts  the  number  in  ASCII  passed 
as  a parameter  into  a floating  point  number.  The 
<e»pression>  must  evaluate  to  a string. 

Conversion  continues  until  a character  is  encountered 
that  is  not  part  of  a valid  number  or  until  the  end  of 
the  string  is  encountered. 


txAMPLEb; 

VALIAS) 

VALl"3.78P"  ♦ "E-07"  + "THIS  IS  IGNOWED") 


ELEf^El^iT 


< V a r i ab 1 e> 


< var i ab 1 e> 

synopsis: 

<identifier>  ((  <subscript  list>  )) 

DESLRIPI ION: 

A <vartable>  in  BASIC-E  may  either  represent  a float- 
ing point  number  or  a string  aeoendinq  on  the  type  of 
the  < i dent i f i er> . Subscripted  variables  must  appear 
in  a DIM  statement  before  being  used  as  a <variable>. 

EXAMPLES: 

X 

Y$(S» 10) 

AdS.AMT(X(I),Y(I),S(I-l)) 


APPENDIX  II  - compiler  ERPUK  MESSAGES 


I 


li 


I 


i 


CE  could  not  close  file.  > 

DE  Diskerrop. 

i 

1 

DF  Could  not  create  INI  file;  aisk  or  directory 

is  full. 

DL  Ouolicate  labels  or  s ync ron i ?at i on  error. 

DP  Identifier  in  DI''*  statemen^t  oreviously  defined. 

FC  Identifier  in  FILE  state'rent  previously  defined. 

FD  Predefined  function  name  oreviously  defined. 

FI  Fur  loop  index  is  not  a simple  floating  point 

variable. 

FN  Incorrect  number  of  oarameters  in  function 

ref  e renc  e . 

FP  Invalid  Parameter  type  in  function  reference. 

FU  Function  is  undefined. 

IC  Invalid  character  in  BASIC  statement. 

IE  Expression  in  IF  statement  is  not  of  type  floating- 

point. 

IS  Subscripted  variable  not  previously  dimensioned. 

lU  Array  name  used  as  simple  variable. 

MF  Expression  is  of  type  string  where  only  floating 

point  is  all  owed . 

VM  Expression  contains  string  and  floating  point 

variables  in  mixed  mode  expression. 

NI  Identifier  following  NEXT  does  not  match  FUR  state- 

ment i ndex  . 

NP  No  applicable  production  exists. 


NS 


No  BAS  file  found 


NU  NtXT  statement  witt>out  corresponding  FOR  statement. 

SN  Incorrect  number  of  subscripts. 

SO  Compiler  stack  overflow. 


TO  Symbol  table  overflow. 

VO  VARC  overflow. 


h 


APPEiNDIX  III  - PUN-riMt  MOMTOH  ERROR  MESSAGES 


AC 

CE 

DR 

DW 

DZ 

EF 

ER 

11 

IR 

FU 

ME 

NE 

NI 

00 

OE 

01 

RE 

RU 

SB 

SL 

ss 

TZ 


Null  strinq  oassed  as  oarameter  to  ASC  function. 
Error  closing  a file. 

Disk  read  error  (reading  unwritten  data  in 
ranoom  access ) . 

Error  writing  to  a file. 

D i V i s i on  by  zero. 

Eof  on  disk  file.;  no  action  soecifieo. 

Exceeded  record  size  on  block  file. 

Invalid  inout  from  the  console. 

Invalid  record  number  in  random  access. 

Accessing  an  unooened  file. 

Error  attempting  to  create  a file. 

Attempt  to  raise  a number  to  a negative  power. 

No  INI  file  found  in  directory. 

Attempt  to  read  past  eno  of  data  area. 

Error  attempting  to  open  a file. 

Index  in  ON  statement  out  of  bounds. 

Attempt  to  read  past  end  of  record  on  blocked  file. 
Unblocked  file  used  with  random  access. 

Array  subscript  out  of  bounds. 

Strinq  length  exceeds  2S5. 

Second  parameter  of  MIDS  is  negative. 

Attempt  to  evaluate  tangent  of  pi  over  two. 
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APPtNOIX  IV  - OPEWAIING  I Tm  S T RUC  T I QN  S FOR  bASIC-t 


The  BASIC-E  orograms  are  written  to  operate  with  tne 
CP/M  Floooy  Disk  Operating  System.  Ooeration  with  a aif- 
ferent  system  win  reauire  modification  to  the  input/output 
routines  in  the  compiler  and  run-time  monitor.  Execution  of 
a orogram  usinq  BASIC-E  consists  of  three  steps.  First  the 
source  program  must  oe  created  on  disk.  Next  the  orogram  is 
compiled  oy  executing  the  BASIC-E  compiler  witH  the  name  of 
the  source  program  provided  as  a parameter.  Finally  the 
intermediate  tINT)  file  created  by  the  compiler  may  be 
interpreted  Oy  executing  the  run-time  monitor,  again  using 
the  the  source  proaram  name  as  a parameter. 

Creation  of  the  source  program  will  normally  be  accom- 
plished using  CP/M's  text  editor,  and  must  have  a file  type 
BAS.  The  BASIC-E  statements  are  free  form  with  the  restric- 
tion that  when  a statement  is  not  completed  on  a single 
line»  a continuation  character  (\)  must  be  the  last  charac- 
ter on  the  line.  Spaces  may  precede  statements  and  any 
number  of  spaces  may  appear  wherever  one  soace  is  permitted. 
Line  numbers  need  only  be  used  on  statements  to  which  con- 
trol is  passed.  The  line  numbers  do  not  have  to  be  in 
ascending  order.  Using  identifiers  longer  than  two  charac- 
ters and  indentinq  statements  to  enhance  readability  does 
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not  affect  the  size  of  the  object  file  created  by  the  com 


pi  1 er , 


The  first  statement  of  a source  proqram  may  be  used  to 
specify  certain  compiler  options.  If  presents  this  state- 
ment must  beqin  witn  a dollar  siqn  (S)  in  column  one  ana  be 
followed  by  the  letter  or  letters  indicating  the  options 
which  are  desired.  The  letters  may  be  separated  bv  any 
number  of  blanks.  Invalid  letters  or  characters  are 
ignored.  Apoendi*  D lists  valid  compiler  options^  and  their 
initial  settings.  Toggle  A is  used  for  compiler  debugging. 
Toggle  B supresses  listing  of  the  source  program  except  for 
statements  with  errors.  Toggle  C compiles  the  program  but 
does  not  create  a INT  file.  Normally  the  BASIC-E  compiler 
converts  all  letters  appearing  in  identifiers  or  reserved 
woras  to  uopercase.  If  toggle  0 is  set  this  conversion  is 
not  performed.  Letters  appearing  in  strings  are  never  con- 
verted to  uppercase.  Toggle  E causes  code  to  be  generated 
by  the  compiler  so  that,  upon  detection  of  a run-time  error, 
the  source  statement  line  which  was  being  executed  at  the 
time  the  error  occured  is  listed  along  with  the  error  mes- 
sage . 


The  BASiC-E  compiler  is  invoked  as  follows: 

BASIC  <program  name> 

The  compiler  begins  execution  by  opening  the  source  file 
specified  as  a parameter  and  compiles  each  BASlC-E  statement 
producing  an  object  file  in  the  BASIC-E  machine  language 
with  the  same  name  as  the  source  program  but  of  type  "INT", 

1 1? 


1 


The  source  program  may  be  Hstea  on  the  output  device  with 
any  error  messages  following  each  line  of  the  program.  If 
no  errors  occur  during  compilation,  the  object  file  may  be 
executed  oy  the  run  time  monitor  oy  typing  the  comrrano: 

RUN  <program  name> 


PROGRAM  LISTING  - BASIC-E  COMPILER 


8080  PLMl  VERS  4.1 
COCOl  I 

00002  1 IOOH: 

00003  1 

C0C04  1 

00005  I 

00006  1 

00C07  1 

00008  I 
C0C09  I 
OOCIO  1 
OOOU  I 
00012  1 
00013  I 
OOC14  1 

00015  I 

00016  1 

00017  I 
OOC18  1 
00019  1 

C0020  1 

00021  1 

00022  I 

00023  I 

00024  1 

00025  1 

00026  1 

00027  1 

00028  1 

C0C29  1 

C0030  I 

00031  1 

00032  1 

00033  1 

00034  1 

00035  1 

00036  I 

00037  I 

00033  1 

C0039  1 

C0040  1 

00041  I 

00042  1 
OOC43  1 

00044  1 

00045  1 

00046  1 


/»  LOAD  POINT  FOR  COMPILER  */ 


* NBASIC  COMPILER 

* U.  S*  NAVY  postgraduate  SCHOOL 

* MONTE RE Yf  CALIFORNIA 

* WRITTEN  9V  GORDON  EU6ANKS,  JR. 

* 

* CPM  VERSION  1.2 

« 

* NOVEMBER  1976 

* 

*/ 


44 4V 44 444« «4 444 4 44 44 4444444444 «»4 4444*4444 4 444444444 44* 
* * 

4 TF=  NBASIC  compiler  IS  OIVIDEO  INTO  THE  FOLLOW-  4 

* ING  MAJOR  SECT  IONS:  * 

* (1)  GLOBAL  DECLERATIGNS  AND  LITERAL  ♦ 

* DEFINITIONS  4 

* (2)  SYSTEM  INPUT  OUTPUT  ROUTINES  AND  * 

4 ASSOCIATED  VARIABLE  DECLERATIGNS  * 

* (3)  SCANNER  * 

* (**»  SYMBOL  TABLE  ROUTINES  ♦ 

* (5)  PARSER  AND  CODE  GENERATION  * 

4 4 

* NBASIC  REQUIRES  A SOURCE  PROGRAM  AVAILABLE  ON  4 

* AN  INPUT  DEVICE  AND  WILL  WRITE  A BINARY  OUTPUT  * 

4 FILE  WHICH  MAY  BE  EXECUTED  BY  THE  SUN  TIME  * 

* MONITOR.  THE  SOURCE  MUST  BE  READ  TWICE.  * 

4 THE  NORMAL  OUTPUT  DEVICE  IS  THE  CONSOLE.  * 

4 4 

■*  MODIFICATION  OF  THE  COMPILER  FOR  OTHER  OPERATING  * 

4 SYSTEMS  WILL  REQUIRE  MODIFICATIONS  TO  SECTION  * 

* (2)  AND  IN  SECTION  I REDEFINITION  OF  LITERALS  IN  4 

4 SECTIONS  SYSTEM  PARAMETERS  WHICH  MAY  REQUIRE  4 

4 MODIFICATION  BY  USERS  AND  EXTERNAL  ENTRY  * 

4 POINTS  . OTHER  CHANGES  SHOULD  NOT  BE  REQUIRED  ♦ 


000^7 

1 

9 

9 

00068 

1 

CO  06  9 

1 

4/ 

C0050 

1 

00051 

1 

00052 

1 

/» 

00053 

1 

OOC56 

1 

9 

00055 

1 

SECTION  1 44*4  4 

C0056 

1 

* 

* 

00057 

1 

00058 

1 

4/ 

C0C59 

1 

/♦ 

C0C60 

1 

99  *9««****««*«*««'**«**««««*1t9«*4« 

00  061 

1 

4 

9 

00  062 

1 

* 

GLOBAL  LITERALS  ♦ 

00063 

1 

* 

9 

00066 

1 

00  065 

1 

4/ 

C0C66 

1 

00067 

1 

DECLARE 

00068 

1 

LIT  LITERALLY 

•LITERALLY' , 

C0C69 

1 

TRUE  LIT 

• 1'  f 

C0070 

1 

FALSE  LIT 

•O'  t 

00071 

1 

FOREVER  LIT 

•WHILE  TRUE', 

OOC72 

1 

INOEXSIZE  LIT 

• ADDRESS'  , 

0007  3 

1 

STATESUE  LIT 

•ADDRESS' , 

00076 

1 

LF  LIT 

•OAH' , 

00075 

1 

QUESTIONMARK  LIT 

•3FH'  , 

00076 

1 

POUNDS  I GN  LIT 

•23H' , 

00077 

1 

UPARROW  LIT 

•5EH' , 

00078 

1 

TAB  LIT 

' 09H'  , 

00C79 

1 

COLIN  LIT 

•3AH' , 

C0C80 

1 

ASTRICK  LIT 

•2AH* , 

00C81- 

1 

PERCENT  LIT 

•25H' ; 

00C82 

i 

00083 

1 

/* 

00086 

i 

00C85 

i 

9 

9 

00086 

1 

9 

EXTERNAL  ENTRY  POINTS  * 

0CC87 

i 

* THESE  ENTRY 

POINTS  ALLOW  INTERFACEING  WITH  CP/M  ♦ 

00  088 

i 

9 

9 

C0C89 

1 

99  99999*4999  99  9999  99  9999999*9*********999*9*9*99999999999 

C0090 

i 

*/ 

00091 

1 

J 
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00092 

0CC93 

0009-V 

00095 

C0C96 

0CC97 


C0126 

00127 

00128 
CO  129 
CO  130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 
C0139 
C0140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 
C0150 
00151 
00  152 

00153 

00154 

00155 

00156 

00157 

00158 
C0159 
CO  160 
00161 
00162 

00163 

00164 

00165 


00176 

00177 

00178 
CO  179 
C0180 
00181 
00182 

00183 

00184 

00185 

00186 

00187 

00188 
C0189 


OtCLASl: 


800S  LIT  •05H*,  /*  ENTRY  POINT  TO  CP/M  */ 

SOOT  LIT  'OH',  /»  RETURN  TO  SYSTEM  */ 

STARTBOCS  address  INITUL(6H1,  /»  AOOR  OF  PTR  TO  TCP  OF  BOOS  */ 
MAX  tjASLO  STARTQOOS  AODRESS:  /♦  max  USEABLc  address  */ 


00098 

1 

/♦ 

C0C99 

1 

CO  100 

1 

OOlOl 

1 

SYSTEM 

parameters  which  may  * 

00  10  2 

1 

REQUIRE 

MODIFICATION  6Y  USERS  * 

00  103 

1 

00  104 

1 

00105 

1 

*/ 

CO  106 

1 

00107 

1 

DECLARE 

C0108 

1 

I DENTS  I ZE 

LIT 

• 32*  , 

/*  MAX  IDENTIFIER  SIZE  Fla/ 

C0109 

1 

VARCSIZe 

LIT 

’ 100*  , 

/*  SIZE  OF  VARC  STACK  */ 

CO  110 

1 

PSTACKSIZE 

LIT 

• 14'  . 

/*  SIZE  OF  parse  stacks  »/ 

00111 

1 

EOLCFAR 

LIT 

'OOH*  , 

/a  END  OF  SOURCE  LINE  INDICATOR  ♦/ 

00112 

1 

EGFFILLER 

LIT 

> lAH'  , 

/»  PAD  CHAR  FOR  LAST  REC  ON  FILE  */ 

00113 

1 

SOURCERECSIZE 

LIT 

• 128*  , 

/*  SIZE  OF  SOURCE  FILE  REC  */ 

00114 

1 

/*  NOTE: 

THIS  IS 

MAX  SIZE  OF  SOURCE  FILE  RECORDS 

00115 

1 

IF  SOUR 

CE  fils  CONSISTS  CF  VAR  LNG  REC  */ 

00116 

1 

INTRECS IZE 

LIT 

• 128*  , 

/a  INTERMEDIATE  FILE  REC  SIZE  */ 

00117 

1 

CONBLFFSIZE 

LIT 

'82'  , 

/*  SIZE  OF  CONSOLE  BUFFER  */ 

00  113 

1 

HASHT6LS1ZE 

LIT 

•64'  , 

/*  SIZE  CF  HASHTABLE  */ 

C0119 

1 

HASHMASK 

LIT 

•63'  , 

/a  HASHTBLSIZE  - 1 a/ 

CO  120 

1 

STR INGDELIM 

LIT 

•22H*  , 

/«  CHAR  USED  TO  DEL  I.M  STRINGS  */ 

00121 

1 

CON  rCHAR 

LIT 

• 5CH'  , 

/#  CONTINUATION  CHARACTER  a/ 

0012  2 

1 

MAXONCOUMT 

LIT 

• 15'  ; 

/a  max  number  ON  STATEMENTS  */ 

00123 

1 

00124 

1 

00125 

1 

/* 

DECLARE 


* 

* 


4 

GLOBAL  VARIABLES  * 

* 

«««**«  «««***« 


PASSl 

PASS2 


/* 


BYTE  INITIAL(TROE) , 
BYTE  INITIAL(FALSc) , 


/* 

/» 


PASSl 

PASS2 


FLAG 

FLAG 


*/ 

*/ 


*/ 

LISTPRGO 

LISTSOURCE 

DEBUGLN 

LOW ERTOUPPER 

NOINTFILE 

ERR  SET 

ERRCP.COUNT 

ULERRCRFLAG 

COMPILING 

COOESIZE 

PRTCT 

FDACT 

DATACT 


COPILER  toggles 


iYTE 

EYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE  , 

ADORE 

ADORE 

ADORE 

ADORE 


INITIAL(FALSE) , 
INIT  I AH  FALSE  ) , 
INI TI AL( FALSE)  , 
INIT lAL(TRUE)  , 
IMlTIALIFALSElf 
INI  TI AL(FALSE)  , 
INITIAL(O), 

INI TI AL(FALSE)  f 


SS,  /*  USED  TO  COUNT  SIZE  OF  CCOE  AREA  */ 

SS,  /*  USED  TO  COUNT  NUMBER  OF  PRT  ENTRIES  */ 
SS.  /#  USED  TO  COUNT  NUMBER  CF  FDA  ENTRIES  */ 
SS,  /*  USED  TO  COUNT  SIZE  OF  DATA  AREA  ♦/ 


/*  VARIABLES  USED  DURING  FOR  LOOP  CODE  GENERATION  */ 


FOR  STMT  BYTE,  •% 

NEXTSTMTPTR  ADDRESS, 

NEXTAOORESS  BASED  NEX T S TMT PT R ( 4 I ADDRESS, 
NEXTBYTE  BASED  NEXTSTMTPTR  BYTE. 

FORCCUNT  BYTE  INITIAL(O), 


/*  FLAGS  USED  DURING  CODE  GENERATION  */ 


RANDCMFILE  BYTE, 
FILEIQ  BYTE, 
INPUTSTMT  BYTE, 
GCSLBSTHT  BYTE, 


00166 

1 

00167 

1 

/* 

THE  FOLLCHING  GLOBAL 

00168 

1 

00169 

1 

TOKEN 

BYTE, 

/* 

C0170 

1 

SUBTYPE 

BYTE, 

/« 

00171 

1 

FUNCCP 

BYTE, 

/* 

00172 

1 

HASHCQOe 

BYTE, 

00173 

1 

NEXTChAR 

BYTE, 

/* 

00174 

1 

ACCUMI IDENTSl  ZE ) 

00175 

1 

CONT 

BYTE, 

/« 

BYTE,  /a  HOLDS  CURRENT  TOKEN  */ 


/*  SYMBOL  TABLE  GLOBAL  VARIABLES  */ 


BASE  ADDRESS,  /•  BASE  OF  CURRENT  ENTRY  ♦/ 

HAShTABLEIHASHTBLSIZE ) ADDRESS, 

SBTBLTCP  address,  /»  CURRENT  TOP  OF  SYMBOL  TABLE  */ 
FORADCRESS  BASED  SBTBLT0PI4)  ADDRESS,  /*  FOR  STATEMENT  INFO  */ 
SBT3L  ADDRESS, 

PTR  BASED  EASE  BYTE,  /*  FIRST  BYTE  CF  ENTRY  */ 

APTRADOR  ADDRESS,  /*  UTILITY  VARIABLE  TO  ACCESS  TABLE  ♦/ 

BYTEPTR  BASED  APTFADPR  BYTE, 

AODRPTR  BASED  APTRADDP  AD0RFS3, 

PRINTNAME  ADDRESS,  /*  SET  PRIOR  TO  LOOKUP  OR  ENTER  •/ 
SYMbASH  BYTE,  /*  ALSO  SET  PRIOR  TO  LOOKUP  OR  ENTER  */ 
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■Q0190 

00191 

00192 
0C193 

00194 

00195 

00196 

00197 

00198 

00199 


Q0?A9 

C0220 

00221 

00222 

00223 

00224 

00225 

00226 
00  227 
C0228 
C0229 

00230 

00231 

00232 
00253 
0023t 
00235 
0023  6 

00237 

00238 
C0239 
C0240 
00  241 
002^2 

00243 

00244 

00245 

00246 

00247 
00  248 
CO  24  9 
C0260 

00251 

00252 

00253 

00254 

00255 

00256 

00257 
C0258 
C0259 
C0260 
00261 
00262 
C0263 
00  264 

00265 

00266 

0026  7 
00268 
C0269 
C0270 

0027  I 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 
C0280 
00  281 
00282 

00283 

00284 
. 00285 


/* 

« 

* THE  F0LL021.MG  LITERAL  OEFIMTIOMS  ESrAcl'> 

* NEftCNIC  NAMES  FOK  TmE  T OKENS  rtHlCn  Ak  e 

* CUTPUT  OF  THE  LALR  PARSER  P-vOC«AM. 

* 

•««*«**«««***««««»«4«*«««*****«***««***«*>>«*>*>* 
♦/ 


C0200 

1 

POUND 

LIT 

•12*  , 

LPARN 

LIT 

• 02'  . 

kP 

LIT 

• )5  •, 

C0201 

1 

ASTRK 

LIT 

•04'  , 

tplus 

LIT 

•03', 

TMl NUS 

LIT 

•07*  , 

00202 

1 

LES5T 

1 IT 

• 01  • , 

TCULIN  Lll 

• ll' 

SCJLN 

LIT 

• 06'  , 

00203 

1 

exPCN 

LIT 

• 14*  , 

EiUAL 

LIT 

• 13', 

GTR  r 

LIT 

■ 1 )•  , 

002C4 

1 

TDATA 

LIT 

•99*  , 

TAND 

LIT 

' 24*  , 

TCP 

1 IT 

•21'. 

0020  5 

1 

TELSE 

LIT 

•34', 

toff 

LIT 

•25'  , 

TDI  M 

LIT 

•2o*  , 

00206 

1 

TFOR 

LIT 

•23*  , 

tend 

LIT 

•2T', 

tfile 

lit 

•35>, 

00207 

1 

TIF 

LIT 

• IT'  , 

tgoss 

LIT 

•43*  , 

TGcro 

1 IT 

• 3o*  , 

00208 

1 

TNEXT 

1.  IT 

•37', 

TINPT 

LIT 

•44’  , 

TLE-*- 

< J T 

•29*  . 

C0209 

1 

SLASH 

LIT 

•08  • , 

TNOT 

LIT 

■30', 

TCN 

LIT 

• 20' , 

C0210 

1 

TOR 

LIT 

•21  • , 

TPRNT 

LIT 

• 45'  , 

TREAD 

1 IT 

•33*  , 

00211 

1 

TREST 

L IT 

•46  • , 

TRETN 

L I T 

•46', 

Ts.  :p 

LIT 

•39', 

00212 

1 

TSTCP 

LIT 

•40'  , 

TTmEN 

LIT 

'41'  , 

TTO 

t IT 

•22', 

00213 

1 

FUNCT 

LIT 

'53', 

TGEQ 

LIT 

• 15' , 

TSU3 

LI  I 

•32'  . 

00214 

1 

TLECi 

LIT 

• 13'  , 

COMMA 

LIT 

•09'  , 

TOO 

LIT 

• U*. 

00215 

1 

TNE 

LIT 

• 19*  , 

TCL'JS 

LIT 

•42'  , 

T X uR 

1 IT 

•33'  , 

00216 

1 

TOUT 

L IT 

•31', 

TIRN 

.IT  • 

51*  , 

STRING 

LlI 

• 50'  , 

00217 

1 

IDENTIF  lEF 

LIT  • 

52*  , 

FLOATP' 

lit 

'49*  , 

00218 

1 

UDFUNC  T LIT  *54* 

t 

TREM  lit  '0 

• ; 

/* 

* 

« 

« 

* 


LALP.  PARSE  TAELES 
AND  VARIABLES 


•/ 

DECLARE  MAXPNO  uITERALLr  ‘120',/*  MAX  READ  COUNT  */ 

“AXLNO  literally  '175', /•  MAX  LOOK  COUNT  */ 

MAXING  uITERALLY  '189%/*  «AX  PUSH  COUNT  */ 

MAXSNO  literally  '341',/*  MAX  STATE  COUNT  */ 
starts  LI‘^f;IALlY  '12l',/»  START  STATE  »/ 

PRODNC  LITERALLY  *152';/»  NUMBER  OF  PRODUCTIONS  •/ 

DECLARE  READl  CATA( 0, 49, 10, 13, 2t 49, 50, 52, 53, 54, 49, 13, 22, 52. 2, 3t 7, 27, 30 
,49, 50.  52,53,5-,  ,2 ,3,7,30,49, 50, 52, 53 , 54,54,52,12  ,52 ,2 ,3,7,49 ,50,52 
,53,54,  12,52,49,-fS,50,2,3f  7,  12, 30, 49, 50, 52,53, 54, 2 , A, 2, 9, 5, 9, 49, 4, 3 
,49, 16, 20, 28, 29, 31, 35, 30, 37, 38, 40, 42, 43, 44, 45, 46, 43, 49, 51, 52, 49, 14, 6 
,a2,  1-.  52, 5, :2, 9,  23, 9, 21, 33, 4 I,  16. 21, 33, 36, 43, 9, 21  , 33  , 5, 9, 21  , 33, 5, 21 
,35  ,5.9,  :i, 33. 5, 9, 2 I, 3 3, 0.7. 21, 33, 2 I, 33, 39, 21, 33, 4 1,5, 21, 33, 6, 21,33 
,9,6,",,  10, 1 7, 2 0,25, 26, 27, 23, 29, 31  ,56,06,37,38, 40, 42,43, 49,45, 46, 48 
, 51, 52, 2, lo,  20,  ^o,2=>, 31, 35, 36, 37, 38, 40, 42, 43, 44, 45, 46, 48, 51, 52, 52, 13 
,..4,  11 ,3  *»■*  *2,1,3  ,7 ,10, 13,  15,  13,  19,3,  7,9,01  1 

DECLARE  LOCKl  U a;  AO.  49, 0,  10.  13, 0,  13, 0,1 1 , 23, 34, 0,52. 0,12, 52, 0,49, 50, 0,6 
, 9, 11, 23, 2, 0,2, 0,9, 0,4, 8, 0,4, 8, 0,4, 3, 0,4, 8, 0,4, 8, 0,11,23,34,0 
, 14, 0,l4, 0,14,0,9  ,0, 9,0, 9, 0,9, 0,9, 0,21, 33, 0,21,33, 0,21, 33, 0,21, 33,0 
, 21,:' 3,  39, 3, 21,  j3, 0,21, 33, 0,21, 33, 0,23, 0,21  , 33, 0,21, 33, 0,9, 0,9, 0,6, 9 
,0,52, 0,11, 23, 0,11, 23. 34, 0,2, 0,1 1,23, 0.52, 0,24,0, 2 4, 0,1 1,0, 23, 0,1 1,0 
, 9. 0, 2. C, 1.3, 7, 10, 13, 15, 18, 19,0, 3, 7, 0,9,0); 

DECLARE  APFLYl  C AT AlO, 0.0, 0,55, 105, 0,19, 0,0, 32, 47, 0,0, 3, 4, 12, 14, 16, 17, 20 
,21,22,20,2  7,34,3  6,38,4  0,98, 100,102,  10  3,114,116,0,0,46,0,28,0,33,0 
,63,0,5,6,8,9,0,7 ,10,0,23,0, 13,19,32,35,47,55,99,101 ,105,106,0,0,0,0 
,0,j9, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 11, 0,8,0,0,0,0,0,99 
,lC6,0,0,u,0,0,4C,0,0,0,0,0,0,62,0,Of  74,0,74,0.0,0,0,0,0,0,0,0) ; 

DECLARE  REA0212C5)  ADUFESS  INITIAL 

(0 , 191,264, 260, 3, 25 5, 256, 129, 254, 253, 326, 258, 329, 33 1,3 
,5, 3, 31, 33, 255, 25 6, 129, 254, 253, 3, 5, 8, 33, 255,250, 129, 2 54, 253, 279, 42 
,21, 129, 3, 5, 3, 255, 256, 129, 2 54, 253. 20,  129, 2 73, 255, 2 50,3,5,3, 20, 33, 255 
,256, 129, 254, 25 3, 24 7, 294, 4, 3 35, 290, 23 3, 3 20, 7,  10, 3 2 7, 2 4, 26, 2 63, 32, 34 
, 285, 328, 125, 126, 338, 38  , 330, 127,  128, 337, 340, 2 7=, 34  1 , 129, 325, 23, 302 
,2  7,220 ,150 ,17, 131, 13, 190,  14, 223, 224, 277, 24, 223, 224, 323, 330, 12, 22 3 
,224 ,240,248 ,223 , 224 ,244 , 22 3 , 224 , 249 , 252 ,223,224,293,295,223,224,316 
, 16, 223, 224, 223, 224, 30,22 3, 2 24, 37, 280  ,22  3 , 224 ,3 1 7 , 22  3 .224 , 1 5 , 3 13 ,3 19 
,24,25,26,29,30 ,3  39,263,3  2,34,285,328, 12  5, 126,338, 38,  330,  12  7, 12  8, 33  7 
,340.341 ,129,251,24,26 ,268, 32,34,2  85 ,328 , 1 25 , 126 , 333 , 38 , 3 30 , 12  7,128 
,3  37,340,34  I,  129,  45 , 22 , 2 3 , 1 24 , 276 , 286 , 282 , 122 , 6, 9 , 1 23  ,2  57,2  59,261 
,265,6,9,11  ,0): 

DECLARE  LOOK2I151)  ADDRESS  INITIAL 

to, 1,176,2,2,265, 13,262,177,177.177, 19,334,333,35,35 
,178, 39  , 39, 1 79, 130, 180, 18 0,130, 180, 40, 41  , 245 , 43 , 1 a 1 , 44 , 33 2 , 49 , 49, 231 
, 50,50, 254,51 ,51, 235,52, 52,232, 53,53,233 , 182,182, 182,55 ,57,236, 58 
,2  37 ,59  ,238  ,66,30  8, 68,3  00, 69,29  9,  70 ,301,72,296, 76 , 70,297, 77 , 7 7,309 
,78, 78, 2 19, 64,84,312, 85, 83, 35, 133, 8 7, 87, 336, 68, 88, 298. 39, 89, 310, 278 
,9  1,93, 93. 3 13,94,94,209,95. 321 ,90,322 ,9  7,97,1 34,99 , 13  5, 186,  186 ,101 
,314,31  A ,314, 102,  104,250,  18  7, lo7 , 105,  106, 188,109, 221  , 110,22  2,  111, 193 
,2 74, 1 12. 11 3, 272, 115, 2 84, 117, 189, 118, 1 13  , lid, 116, 116, 118, 1 1 6, 118,229 
,1  19 ,119.230,  120,  •’90) ; 

DECLARE  APPLY2(12ai  ADDRESS  INITIAL 

<0,0, 161, 71, 169, 170, 168,199,198,200 ,21 3, 2 67, 201, 98, 80 
,90,  151 ,152  ,92,15  5,83.86,  154,  74, 150, 75,  156, 146, 14  7, 14  8, 149 , 153, 82 , 79 
,81,73,46,107,166,220,225,228,227,174,173,133.135,134.136,132,139 
, 1 40 , 138.240,23'*  305.64,64,304,64,04,304 ,64, 64, 3 04,241,114, 243, 116 
,163 ,60 .242  ,o3 ,202.0 1 .4  7,266, 194,271,  164,  13  7, 197,  I 72,  IC6, 107,204,65 
, I 71 ,23  7,196, 1,5 ,292,291 ,1  03,205 , 145 ,206  .210.165. 143  . l44, 142,23  7, 159 
, 141 ,307,100, 160, 162,208, 21 3, 56,62, 158,1 57,209,323 ,48,324,54,203,67 
.216.212,211.195.214,215) ; 
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00  286 
00287 
C0288 
C0289 
C0290 
00  291 
00292 
C0293 
0029^ 
00295 
0C296 
00  297 
C0298 
C0299 
C0300 
00301 
00  302 

00303 

00304 
00  305 

00306 

00307 

00308 
C0309 
C0310 

00311 

00312 

00313 
C0314 

00315 

00316 

00317 

00318 

00319 
C0320 
00321 
O'’ 322 
Ov.  J23 

00324 

00325 
00  326 
00327 
00  32  3 
CO  32  9 

00330 

00331 

00332 

00333 
00  334 
00335 
00  336 
00337 

. 00333 
C0339 
C0340 
00341 
0034  2 
00  343 

00344 

00345 

00346 

00347 

00348 

00349 
C0350 
00351 
00  352 

00353 

00354 

00355 
C0356 

00357 

00358 
C0359 
CO  360 

00361 

00362 

00363 

00364 

00365 
C0366 

00367 

00368 
C0369 

00370 

00371 

00372 
30373 
00374 
C0375 

00376 

00377 

00378 
C0379 
C0380 

00381 

00382 


DECLARE  1N0EXU341)  ADDRESS  INITIAL 

(0 , 1.2 124, 2 4,4,4 f 4,4, 4,4,34,24, 36 ,2  4, 10,24,24, 1 1 ,168 
, 24, 24, 24, 4, 1 2, 14  , 24, 2«,,  24, 3 3, 34, 35, 36,  ■'7, 24, 45, 2 4, 4 7, 2 4, 48, 50, 60, 61 
t62f  63f  36»€>6i  67i  6/f  67  t 67  »67  f69#  70f89f90f9^»‘^0f9l » 92  »09>37  »93 

• 94,95* S6, 9 7, 97 ,9  7.90,99, 100, 10  3, 106*  100 , 100,100,  1 1 1 , 1 1 5 , 1 1 3 , 122 , 126 

• 100, 130,1 33 , ICO •100,100, 1 36 • 100 , 139 , 100 , 1 00 , 142 , 1 42 • 143 , 24 , i6 , 24 

, 145,24 ,24, 167, 168,36,  186,  16  7, I 8d,  138 , 139, lb9, 189 ,2t,  191 ,24 ,192 ,193 
,201  ,20 1 ,3,6,8, 12,14, 17,20,26, 28, 30, 32 ,35,33,^1 ,44,47,51, 53,55,57 
,59,61, 63,63,67,70,73, 76,79,83,86,69,92,94,97,100, 102 ,104, 107, 109 
, 112 ,116, 1 18, 121 ,123,125,  12  7, 129,  131,  13  3, 135 ,13  7,  146, 149 , 192 , 2 I 7, 306 
,203  ,31 1 , 289,217  , 270, 31 5, 306,2  17, 21  7 ,306,2 31, 1 ,2, 2 ,3 ,3, 3, 3, 3,4,4,  7, 7 
,7, 7, 7, 7, 7,7, 7,7, 7, 7, 7, 7, 7, 7.7, 7, 9, 10,13, 14, 14,36, 36, 37, 37,39, 39, 41 
,4  1, 43, 43, 43, 43, 43, 45, 45, 45, 50, 50,  5 3,  53,  53,53,55,5  5,66,66,67,67,68 
,68,69,69,70,70,72,72,72,72,72,72,72,72,72,73,74,75,76,76,77,77,77 
,78, 78,  79,80,61, 32, 83, 83, 84, 84,  85, 36, 86, 87, 68, 88, 39, 90, 90, 9 I, 33, 93 
,94,95,95,96,96,9  7,9  6 ,96,99 ,99,99,102 , 102,103,103 , 103 , 104,  104,105 
, 105,106 ,106, 10  8,108, 109,  1 10,  1 10,  1 1 1 , 1 12  , 1 13, 113, 1 13, 116, 116, 118,  118 
,120,120, 121, 121  , 12  2, 12  3,  124,  125,  126,  127) 5 
OECLARH  lN0cfX2  C AT  A ( J ,1  ,2 , 9 , 9 , 6 ,6  ,6- ,6  ,6  ,6 , 1 , 9 , 1 , 9 , 1 , 9 , 9 , 1 , 1 3 ,9 , 9 , 9 , 6,  2 
,10, 9, 9, 9, 1,1, I, I, 8, 9, 2, 9, 1,9, 2, 10, 1, 1,1, 1, 2, 9, 1,1, 2, 2, 2, 2, 2, 1, 19. 1 
,1,1,1,  1,1, 1,8, 1,1,1, 1, 1,1, 1,1,1, 3, 3, 3, 2, 2, 2, 4, 3, 4, 4, A, 2, 3, 3, 2,2, 2, 3 
,2,3,2,2,1,1,2,9,1,9,22,9,9,1,13,1,1,1,1  ,L, 1, 2,1, 9, 1, 9, 1, 3, 2, I, 2, 3, 2 
,4, 2, 3,3, 6, 2,2,2, 3, 3,3, 3, 3, 4, 2, 2, 2, 2, 2,2, 2, 2, 3, 3, 3, 3, 4, 3,3, 3, 2, 3, 3, 2 
,2,3,2,3,4,2,3,2,2,2,2,2,2,2,2,9,3,2, 1, 19,35,39,40,43,55,85,97,99 
,101, l05,LCo, 117,2,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,  1,1,1  , 0, 2,0,0, 0,4., 0,  I*  0,2, 0,2, 2,  1,  1,0, 2,2, 0,2,0, 0,0, 2, 0,2,1, 2, 2 

, C, 1, 2,0, 0, C, 0, 0,1, 0, 1, 0, 0,0,1, 0,3, 1, 0,1, 0,0, 1,5, 1,1, 2, 2, 3fl,2,0f0, 2 
,1,0,2, L,2,C,l,0,2,2,l,2,l,0,2,2,l,2,l,0,0«2,0,2,2,0,2,0,0,2,0,0,2,4 
fO  ,0, 1,  1 ,1,2,210,2, 1,0,  1, 0, 1, 1,0, 0,2,3, 0,0, 0,0,0/ i 
/* 


* 

* 

« 

* 

« 

♦ 

« 

« 

« 

* 


SECTION 


SYSTEM  DEPENDENT  ROU'l  INES  AND  VARIABLES 

THE  FOLLOWING  ROUTINES  ARE  USED 
BY  the  compiler  TO  ACCESS  DISK 
FILES  AND  The  CONSOLE.  THESE 
ROUTINES  ASSUME  THE  USE  OF  THE 
CP/M.  DISK  OPERATING  SYSTEM. 

THE  FCC'S  ARE  USED  BY  THE  SYSTEM  TO  MAINTAIN 
INFORMATION  ON  OPEN  FILES.  THEY  ARE  ONLY  USED 
3Y  PROCEDURES  IN  THIS  SECTION.  THE  BUFFERS 
AND  POINTERS  TO  THE  BUFFERS  ARE  USED  BY  THE 
REMAINDER  OF  THE  PROGRAM  BUT  THEIR  SIZE  MAY 
BE  VARIED  TO  SUIT  THE  DISK  SYSTEM  BEING  USED 


« :<i ^ ^ ^ 9 ^ ij, « « It  4 « « « 4m|i  « « ^ « « « ♦ « 9c # 4t « 

• / 


DECLARE 


RFCeACCR  ADDRESS  I NI T I AL I 5CH ) , 

/*  hiOTE:  CP/M  PROVIES  5CH  AS  FC3  AREA  AND  80H  AS  A 
BUFFER  FOR  PROGRAM  USE  */ 

' BYTE,  /*  SOURCE  FCB  ♦/ 

BYTE  /*  INTERMEDIATE  FILE  FCB  */ 
INITIALIO,'  • , ' INT' ,0,0,0,0) , 

_ _ ADDRESS  INITIALI30H), 

SOURCEBUFF  BASED  S3LDC ( SOURCE RECSI ZE ) BYTE , /•  SOURCE  BUFFER  */ 

SOURCEPTR  BYTE  I N I T I AL ( SOURCER EC S 1 ZE ) , /•  BUFFER  INDEX  */ 

CUP SOURCERECS IZE  BYTE  I NI TI AL( SOURCERECS IZE) , 


RFCB  BASED  RFCBA00R(33) 
WFC3<33) 

S8L0C 


OiSKCUTBUFFI INTRECSIZE) 


3UFFPTR 


BYT; 


LINEBUFFICONBUFFSI  Z£l 
LINEPTR 
LINENO 


evTE  INITIALIZES),  /*  BUFPER  INDEX  */ 


SEPARATOR 


BYTE,  /♦  CONSOLE  CUT  BUFFER  ♦/ 
BYTE  INITIALIO),  /*  BUFFER  INDEX  »/ 

ADDRESS,  /*  CURRENT  LINE  NUMBER  ♦/ 


BYTE  INI TIALICOLI N) ; 


/♦ 


MONl  , MCN2,  AND  M0M3  ARE  CP/M  CALLS  TO  PERFORM  SYSTEM 
PRCVIOEO  FUNCTIONS.  THE  LITERAL  DECLARATIONS 
BELO’R  DEFINE  THESE  FUNCTIONS.  THE  SECOND  PARAMETER  IN 
MONl  AND  MONZ  IS  A DATA  ITEM  SUCH  AS  A BUFFER  LCCATION 

DECLARE 


1 

PCHAR 

LIT 

• 2'  , 

/* 

CHAR  TO  CONSOLE  */ 

1 

PBUFF 

LIT 

'9*  , 

/• 

BUFFER  TO  CONSOLE  */ 

1 

PCHAR 

LIT 

• 1*  . 

/* 

CHAR  FROM  CONSCLE  •/ 

1 

R8UFF 

LIT 

• 10'  , 

/* 

BUFFER  from  CONSOLE 

1 

OFI  LE 

LIT 

’IS*  , 

/p 

OPEN  FILE  */ 

1 

CFILE 

LIT 

• 16'  , 

/* 

CLOSE  FILE  */ 

1 

OFILE 

LIT 

• 19  • , 

/# 

DELETE  FILE  ♦/ 

1 

RFILE 

LI  T 

•20  • , 

/* 

READ  file-  •/ 

1 

WFILE 

LIT 

•2l', 

/* 

WRITE  FILE  •/ 

1 

MFI  LE 

LIT 

•22’  , 

/* 

MAKE  FILE  */ 

1 

SOMA 

LIT 

•26'  , 

/* 

SET  DMA  */ 

1 

FILEERR 

LIT 

•255' , 

/* 

ERROR  RTN  CODE  •/ 

1 

FILEEOF 

LIT 

•1’; 

/* 

EOF  RTN  CODE  */ 

MCM:  pROCECUREIF.A); 
DECLARE  F BYTE, 

A ADDRESS; 

GO  TO  3C0S; 

END  MONl; 
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00363 
00384 
0038  5 

00386 

00387 

00388 
C0389 

00390 

00391 

00392 

00393 

00394 
0C395 

00396 

00397 
0C398 
C0399 
C0400 

00401 

00402 

00403 

00404 

00405 

00406 
C0407 
C0408 
00409 
C0410 

00411 

00412 

00413 

00414 
C0415 

00416 

00417 
C0418 
00419 
C0420 

00421 

00422 

00423 

00424 

0042  5 

00426 

00427 

00428 
C0429 
C0430 

00431 

00432 

00433 

00434 

0043  5 

00436 

00437 
C043  8 
C0439 

00440 

00441 

00442 

00443 

00444 

00445 

00446 

00447 
C0448 
C0449 
C0450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

00458 
CO  459 
C0460 

00461 

00462 

00463 
00  464 
00465 
0C466 
00467 
C0468 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00478 
C0479 

.C0480 


MGN2:  PROCEDURE  (F,A)  BYTE; 

CECLARc  E BYTE,  A ADDRESS; 
GO  TO  3C0S; 

END  MCN2; 


MCN3:  PROCEDURE; 

/•  USED  TO  RETURN  TO  THE  SYSTEM  •/ 
HALT;  /*  FOR  OMRON  SYSTEMS  ♦/ 

GOTO  aOCT;  /*  RETURN  TO  CP/M  */ 

END  MGN3; 


MOVE:  PROCEDURE  ( SOURCE ,DEST, COUNT) ; 
DECLARE 

SOURCE  ADDRESS, 

OEST  ADDRESS, 

COUNT  BYTE, 

SCHAR  BASED  SOURCE  BYTE,- 
OCHAR  BASED  OEST  BYTE; 

00  WHILECCCLNT  :=  COUNT  -1 > <>  255; 
OCHAR  = SCHAR; 

SOURCE  = SOURCE  +•  i; 

OEST  « DEST  ♦ l; 

END; 

RETURN; 

END  MOVE; 

FILL:  PROCEDURE  ( DEST  , CHAR , COUNT ) ; 

' - - --  --  times  */ 


END 


/*.  MOVE  CHAR  TO  A 
DECLARE 

DEST 
CHAR 
COUNT 

OCHAR  

DO  while  (COUNT  :=  COUNT  -1)  <>  255; 
OCHAR  = CHAR; 

OEST  = DEST  ♦ 

END; 

RETURN; 

fill; 


ADDRESS, 
BYTE, 
BYTE, 
BASED 


i; 


OEST 


BYTE; 


PRINTCHAR;  PROCEDURE! CHAR) ; 

CECLAPE  CHAR  BYTE; 

CALL  MOM  (PCHAR, CHAR)  ; 

END  PRIUTCHAR; 

PRINT:  PRCCECURE(A)  ; 

DECLARE  A ADDRESS; 

CALL  MCNi(PBUFF,A) ; 

END  PRINT; 

OISKERR:  PROCEDURE; 

call  PRINTl  .'OE  S' ) ; 

CALL  M0N3;  /*  RETURN  TO  SYSTEM  */ 

RETURN; 

END  DISKERR; 

OPENSSjURCEFILE  . PROCEDURE; 

/*  SETS  UP  the  FC6  FOR  THE  SOURCE  PROGRAM 

WHICH  MUST  BE  OF  TYPE  *3AS*  AND  THEN  OPENS 
THE  FILE.  CP/M  PUTS  THE  NAME  USED  AS  A 
PARAMETER  WHEN  THE  COMPILER  IS  EXECUTED,  AT 
5CH. 

♦ / 

CALL  MOVE!.  'BAS'  , RFCBAD0RH9 , 3 ) '. 

RFCB(32I  = 0; 

IF  M0N2(CFlL£,RFCeA0DR)  = FILEERR  THEN 
DO; 

CALL  PRINT! .'NS  $■ ) ; 

CAUL  MQN3;  /•  RETURN  TO  SYSTEM  ♦/ 

end; 

END  CPENSSOURCEFILc; 

REWINOiSOURCESFILE:  PROCEDURE; 

/*  CP/M  COES  NOT  REiJUiRE  ANY  ACTION  PRIOR  TO  REOPENING  ♦/ 

return; 

END  REWINOiSOURCESFILE; 

CLQSEJINTSFILE:  PRCCSOURE; 

;F  M0N2(CFILE,.WFCB)  = FILEERR  THEN 
CALL  OISRERR; 

END  closesintsfile: 

SETUPSINTSF ILE:  PROCEDURE; 

/*  4AKES  A NEW  FILE  ♦/ 

IF  NOINTFILE  THEN  /»  ONLY  MAKE  FILE  IF  THIS  TOGGLE  IS  OFF  ♦/ 
RE  TURN; 

CALL  MOVE ! .RFCB, .WFCe,9) ; 

CALL  M0Nl!0FILE,.WFC8); 

IF  M0N2!MFILE,.WFCB)  » FILEERR  THEN 
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00481  2 

00482  2 

00483  1 

00484  I 

00435  2 

00486  2 

00487  2 

00488  2 

C0489  2 

C0490  I 

00491  I 

00492  I 

00493  2 

00494  2 

00495  2 

00496  2 

00497  2 

C0498  2 

C0499  2 

C0500  1 

00501  I 

00502  I 

00503  2 

00504  2 

00505  2 

00506  2 

00507  1 

00503  I 
C0509  1 

00510  2 

005U  2 

00512  2 

00513  2 

00514  2 

00515  2 

00516  2 

00517  2 

00513  2 

C0519  2 

C0520  2 

00521  2 

00522  2 

C0523  2 

00524  3 

00525  3 

00526  4 

00527  4 

00528  4 

C0529  3 

00530  3 

00531  3 

00532  3 

00533  3 

00534  2 

00535  2 

00336  1 

00  53  7 1 

C0538  1 

00539  2 

C0540  2 

00541  2 

00542  2 

00543  2 

00544  2 

00545  2 

00546  1 

00547  1 

00548  1 

00549  1 

C0550  1 

00551  1 

00552  1 

00553  1 

00554  1 

00555  1 

00556  1 

00557  1 

00558  1 

C0559  1 

CO  560  1 

00561  1 

00562  2 

00563  2 

00564  2 

00565  2 

00566  3 

00567  3 

00568  2 

C0569  2 

C0570  2 

00571  I 

00572  1 

00573  1 

00574  1 

00575  1 

00576  1 

>00577  1 


CALL  CISKERR! 

ENO  S£TUP$INT$FIL6; 

REAOJSOURCEIPILE:  PROCEOURE  BYTE; 
declare  ocnt  byte ; 

JFIOCNT  :=  M0N2(RFILE,RFC3A00RH  > pILEEOF  THEN 
CALL  DISKERR: 

RETURN  CCNT;  /»  2cR0  IF  READ  ELSE  I IF  EOF  - ERRORS  > 1 */ 
ENO  REAOtSOURCcJFILE; 

WRITEiINTSF  ILE;  PROCEOURE; 

IF  nqintfile  then 
return; 

CALL  MQM(SCMA,.0ISKOUT8OFFI  ; 

IF  MON2{WFILE,.WFC8I  <>  0 THEN 
CALL  ciskerr; 

CALL  HONl (SCMA,30h) ; /♦  RESET  DMA  ADDRESS  */ 

END  WR  ITE lINTSF ILE ; 

CRLF:  PROCEDURE; 

CALL  PRINTChARIEOLCHAR); 

CALL  PPINTCHARILFJ ; 

RETURN; 

END  CRLF; 

PRINTSOEC:  PPOCECURE(VALUE) ; 

I* 

CONVERTS  VALUE  TO  A DECIMAL  NUMBER  WHICH  IS  PRINTED 
ON  THE  CCNSO'.e.  USED  FCR  L I NENUM6ER I NG  STATEMENTS 
AND  TO  PRINT  PRODUCTIONS. 

DECLARE 

VALUE  ADDRESS* 

I BYTE, 

FLAG  BYTE, 

COUNT  BYTE; 

CcCLARE  CEC1MAL(4)  ADDRESS  I NI T I AL < 1000, 1 00, 10, U ; 

FLAG  = FALSE; 

DO  I = 0 TO  3; 

CCUNT  = 30H; 

DO  ;.HILE  value  >=  OECIMAL(I); 

value  = VALUE  - OeCIMALII); 

FLAG  = TRUE: 

CCUNT  = COUNT  ♦ 1; 

END; 

IF  FLAG  OR  (I  >=  3)  THEN 

CALL  PRINTCHAR(COUNT) ; 

ELSE 

CALL  PRINTCHARC  ' ); 

END; 

RF  turn; 

END  PRINTOEC; 

SETFLAGS:  PRCCEOJRE; 

/* 

RESET  COMPILER  FLAGS  USED  DURING  PARSING 

*/ 

RANOOMFILE,FILE 10, 

INPUTSTMT,  FORSTMT,  GOSUBSTMT  = FALSE; 

RETURN; 

END  SETFLAGS; 


the  following  ROUTINE  GENERATES  THE  INTERMEDIATE 
language  file.  EMIT  IS  THE  ONLY  ROUTINE  TO 
ACTUALLY  WRITE  TO  THE  DISK.  GENERATE,  EMITOAT, 

AND  EMITCON  CALL  EMIT. 

««««  ««««*«»««  4,:*  44  «****»**<'*  ****** 


EMIT:  PROCECUREICBJCCCEI; 

DECLARE  C3JCC0E  BYTE; 

IF  (3UFFPTR  :=6UFFPTR  1)  >=  I NTRECSI  2E  THEN  /*  WRITE  TO  DISK  */ 

00; 

CALL  WRITESINTSFILE; 
dUFFPTR  a 0; 

ENO; 

OISKOUTBUFFIBUFFPTR)  = OBJCOOE; 

RETURN; 

ENO  EMIT; 
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'00578  I 
00579  I 
C0580  I 

00581  I 

00582  1 

00583  1 

00584  I 

00585  I 

00586  I 

00587  2 

00588  2 

00589  I 
C0590  I 

00591  1 

00592  2 

00593  2 

00594  2 

00595  2 

00596  2 

00597  2 

00593  2 

C0599  2 

C0600  3 

00601  2 
00602  2 

00603  2 

00604  2 

00605  2 

00606  1 
00607  I 
C0608  I 

00609  1 

00610  1 
00611  1 
00612  1 

00613  1 

00614  1 

00615  1 

00616  1 

00617  1 

00613  1 

C0619  1 

(.0620  1 
00621  1 
00622  2 

00623  2 

00624  3 

00625  3 

00626  2 

C0627  2 

C0628  3 

00629  3 

C0630  3 

00631  3 

00632  3 

00633  3 

00634  3 

00635  3 

00636  3 

00637  4 

00638  4 

00639  5 

00640  5 

00641  5 

00642  4 

006‘*3  4 

00644  4 

00645  3 

00646  2 

00647  2 

00648  2 

00649  2 
COoSO  3 

00651  3 

00652  3 

00653  2 

00654  2 

00655  2 

C0656  2 

00657  3 

00658  3 

C0659  3 

C0660  3 

00661  2 
00662  2 

00663  2 

00664  2 

00665  1 

00666  1 

CC667  1 

00668  2 
00669  2 

C0670  2 

00671  2 

00672  1 

C0673  1 

_00674  I 


/• 

«**••*«*»» 4* *#«**«*» 4 *«**«*<>* 4*** 4 *44 *4*«**««« 
* • 

* SCANNER  SECTICN  * 

« « 

««**««*****«**«**«**•«*•*«**********«*****»««***••****«*« 
*/ 


CLEARSLINFSBLFF  : PROCEDURE 
CALL  F ILL( .LINE8UFF  , • 
END  CLEARSL  INES8UFF; 


.CQNSUFFSIZE) ; 


LISTSLINE:  PFQCEOURE ( LENGTHJ  ; 

DECLARE 

LENGTH  BYTE, 

1 BYTE; 

CALL  PR INT$CEC( LI NENO) ; 
call  PR INTiCHAR(SEPARATOR)  ; 

CALL  PSINTtCHARI • • ) ; 

DO  I = 0 TO  length; 

CALL  PRINTCHARILINEBUFF(I)  ); 

END; 

CALL  CRLF; 

CALL  clearilinessuff; 
separator  = COLIN; 
return; 

END  LISTiLINE; 

/• 

$ * 4 « ««  ^ ^ A 4 4 « « ^ ^ ^ 4 « « ir  « « 4 « # 4 4 « * 

4 

* OETCHAR  SETS  THE  GLOBAL  VARIABLE  NEXTCHAR  TC  THE 

* NE.XT  SOURCEFILE  CHARACTER  AND  RETURNS  NEXTCFAR  TO 

* THE  CALLING  ROUTINE. 

« 

* TABS  ARE  REPLACED  WITH  A BLANK  AND  IF  EITHER 

* LISTSOURCE  IS  TRUE  OR  AN  ERROR  HAS  OCCUREO  LINES 

* ARE  OUTPUT  TO  THE  CONSOLE. 

* 

***** 4 »*****»«4«****** »«****«»*«*«*»**«»**** ************* 
*/ 


GETCHAR:  ppocecure  byte; 

DECLARE  ADDEND  DATA  ( • END • , EOLC HA R,  LF  ) *,  /*T0  ADD  END  IF  LEFT  OFF  */ 
NEXTtSCURCE ICHAR:  PROCEDURE  BYTE; 

RETURN  SOURCEBUFFISCURCEPTR)  ; 

END  nextssourceschar; 


CFECKFILE:  PROCEDURE  BYTE; 

/* 

CFECKFILE  maintains  THE  SOURCE  BUFFER  FULL  AND 
CHECKS  FOR  END  OF  FILE  ON  THE  SOURCE  FILE. 

IF  A LINE  FEED  IS  FC'JNO  IT  IS  SKIPPED. 

IF  END  OF  FILE  IS  DETECTED  THEM  TRUE  IS  RETURNED 
ELSE  FALSE  IS  RETURNED. 

4/ 

DO  FOREVER;  /*  ALLOW  US  TO  SKIP  LINE  FEEDS  */ 

IF  (SOURCEPTR  :=  SOURCEPTR  + I ) >=  CURSOURCERECSI ZE  THEN 
DO  ; 

SOURCEPTR  = O; 

IF  READSSOURCESFILE  = FILEEOF  THEN 
RETURN  TRUE; 

end; 

IF  (NEXTCHAR  :=  NEXTISOURCESCHAR J <>  LF  THEN 
RETURN  FALSE; 

END;  /4  OF  DO  FOREVER  ♦/ 

END  checkfile; 


IF  CHECKFILE  OR  (NEXTCHAR  = EOFFILLER)  THEN 
DO;  /*  EOF  REACHED  •/ 

CALL  MOVE(. ADDEND. S8LQC, 5); 

SOURCEPTR  = O; 

NEXTCHAR  = NEXTtSOURCESCHAR; 

END; 

LINEBUFF(LINEPTR  :=  LiNEPTR  ♦ 1)  = NEXTCHAR;  I*  OUTPUT  LINE  4/ 
IF  NEXTCHAR  = EOLCHAR  THEN 
DC; 

LI NENO  = LI NENO  ♦ 1; 

IF  LISTSOURCE  OR  ERRSET  THEN 

CALL  LISTLINEILINEPTP  - II;  /»  NCT  EOLCHAR  4/ 
LINEPTR  = 0? 

END; 

IF  NEXTCHAR  =.  TAB  THEN 

NEXTCHAR  = • •;  /*  ONLY  NEED  REPLACE  WITH  1 BLANK  4/ 

RETURN  NEXTCHAR; 

END  GETCHAR; 


GETNCBLANK:  PROCEDURE; 

DC  WHl LE( (GETCHAR  = • • I OR  (NEXTCHAR  = EOFFILLER) I; 
end; 

a c T(  I R M * 

END  getnoblank; 


r 


~0Qb75 

00676 

00677 

00678 

00679 
C0680 
00681 
00682 

00683 

00684 

00685 

00686 

00687 

00688 
00689 
C0690 

00691 

00692 

00693 

00694 

00695 

00696 

00697 
00693 

00699 

00700 

00701 

00702 
00  703 
00704 
00  70  5 
C0706 
00707 
CO  708 
CO  709 
C0710 

00711 

00712 

00713 
00  714 

00715 

00716 

00717 
C0718 
C0719 

00720 

00721 
00  722 
00723 
CO  7 24 
00725 
00  726 
00727 
C0728 

00729 

00730 

00731 

00732 

00733 

00734 

00735 

00736 

00737 

00738 
C0739 

00740 

00741 
00  742 

00743 

00744 

00745 
C0746 

00747 

00748 
00  749 

00750 

00751 

00752 

00753 

00754 

00755 

00756 
00  757 
00758 
C0759 
00760 
00  761 
00762 
00  763 
00764 
00  765 

00766 

00767 
C0768 
00  76  9 
C0770 

00771 

00772 


CHECKSCONTINUATICN:  PROCEDURE; 

/• 

check  for  C0NT19UAT ion  ChaR.  IF  FCUNO  SET  NEXTCHAR 
TO  FIRST  CHARACTER  ON  NEXT  LIME.  IT  ToEN  LOOKS  TO 
THE  PARSER  AS  IF  IT  WAS  ALL  ONE  LINE. 

*/ 

IF  NEXTCFAR  » CONTCHAR  THEN 
00  ; 

00  WHILE  GETCHAR  <>  EOLCHAR  ; 

END: 

CALL  GETNOBLANK; 

END; 

RETURN; 

ENC  CHECKiCONTINUATION; 


****«*«*•***««»***••**•**«««•«•*•«•«•«••*•***•****•«*««« 

ERhCR  is  The  COMPILER  ERROR  HANDLING  ROUTINE 
IF  Ah  FRROR  IS  OETECTRD  WHILE  PARSING  A STATEMENT 
the  remainder  of  The  statement  is  SKIPPEO  AND  the 
STATEMENT  IS  WRITTEN  ON  THE  CONSOLE  FOLLOWED  RY  A 
TWO  LETTER  niSCRIPTIDN  OF  THE  ERFCR.  AN  UP  iSROR 
INDICATES  WHERE  IN  THE  L I NF  THE  ERROR  WAS  OcTECTEO 
TFc  PARSER  IS  RESET  ANO  COMPILATION  CONTINUES  WITH 
THE  NEXT  STATEMENT. 

«««««*««•»«»*«*«*««*»««»*»**• «»»***»*»*«*«****«*»**«*«w« 

•/ 

ERROR:  PROCECURclERRCOOE); 

DECLARE 

ERRCODE  ADDRESS, 

POINTER  BYTE; 

POINTER  = LINEPTR  ♦ 2; 

IF  PASS2  THEN 

ERRSET  = TRUE:  /*  SO  SOURCE  LINE  WILL  BE  LISTED  ♦/ 

IF  TOKEN  <>  TC.R  THEN 

DC  WHILE  NEXTCHAR  <>  EOLCHAR;  /•  SKIP  REMAINDER  OF  LINE  */ 
CALL  CHfcCKSCONTI NUATIGN; 

NEXTCHAR  = GETCHAR; 

END; 

IF  PASS2  TFlcN 

DC;  /*  PRINT  ERROR  MESSAGE  */ 

ERRORCCUNT  = ERRORCCUNT  + l; 

CALL  PRINTCHARIHIGhIEPRCDOE ) ); 

CALL  PRINTCHARILOWIERRCOOE) ); 

CALL  PRlNTCHARI-jUESTICMMARKl  ; 

DO  WHILE! POINTER :=POI NTER  - 1)  >=  1; 

CALL  PRIMTCHARI'  •); 

END; 

CALL  PR  INTCHARI UPARROW)  ; 

CALL  CRLF; 

end; 

call  getjnosblank; 

FxRSET,  COMPILING  = FALSE; 

CALL  SETFLAGS; 

RETURN; 

END  ERROR; 

/* 

« 

* INITIAL IZESSCAMNER  SETS  NEXTCHAR  TO  THE  FIRST 
» N0N-3LANK  CHARACTER  ON  THE  INPUT  FILE  ANO 

* INITIALUE;,  THE  OUTO'JTCINE  COUNTER  ANO  POINTER 

• INITIALIZESSCANMER  IS  CALLED  AT  THE  BEGINNING  OF 

♦ PASS  ONE  ANO  PASS  TWO. 

INITIALIZEiSCANNER:  PRCCEOURlM 
DECLARE  COUNT  BYTE; 

call  gpe.ssscurcef ile; 

LINENO, LINEPTR  = 0; 

CALL  CLEARSLINESaUFF; 

SCURCEPTR  - SCURCERECSIZE; 
separator  = COLIN; 

CALL  GETNOBLANK; 

VF  NEXTCHAR  =s  THEN 

DO; 

00  WHILE  GETCHAR  <>  EOLCHAR; 

IF (COUNT  :=  (NEXTCHAR  ANu  5FHI  - 'A'J  <*  4 THEN 
DO  CASE  COUNT; 

LISTPROD  » TRUE; 

LISTSO.JWCE  = FALSE; 

NOINTF IL6  = TRUE ; 

LOWfcPTOUPPER  » FALSE; 

DE3UGLM  » TRUE; 

END;  /*  OF  CASE  */ 

END; 

CALL  GETNOBLANK; 

END; 

RETURN; 

END  initial  IZESSCANNER; 
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r ■' 

1 

1 

T0773 

1 

00774 

1 

00775 

1 

/♦ 

00776 

1 

00777 

1 

0 

00778 

1 

• THE  SCANNER  ACCEPTS  INPUT  CHARACTERS  FROT*  THE 

C0779 

1 

• SCURCc  FILE  RETURNING  TG<ENS  TO  TmE  PARSER. 

00780 

1 

• CCNVERSICN  TO  UPPERCASE  IS  PERFORMED  WHEN  SCAN- 

00781 

1 

• NING  IDENTIFIERS  UNLESS  LOWERTOUPPER  IS  FALSE. 

00783 

1 

• BLANKS  ARE  IGNORED.  EACH  TCkEN  IS  PLACED  IN 

00783 

1 

* ACCUN.  ACCUM(O)  IS  THE  LENGTH  OF  THE  TOKEN. 

00  784 

1 

• the  TOKEN  IS  HASHCCOEO  SY  SUMMING  EACH  ASCII 

, 00785 

1 

• CHARACTER  KGOULD  HASHTBLSIZE  ANC  THE  RESULT  IS 

i 00  786 

1 

• RETURNED  IN  HASHCOOe.  SUBTYPE  AND  FUNCOP  ARE 

J 00787 

1 

• SET  IF  THE  TOKEN  IS  A PREDEFINEC  FUNCflON. 

1 00788 

1 

* REM  AND  DATA  STATEMENTS  ARE  HANDLED  COMPLETELY 

C0789 

1 

• BY  THE  SCANNER.  IF  THE  RESERVED  WORD  REM  OR 

C0790 

1 

* remark  is  DETECTED  THE  INPUT  IS  SCANNED  UNTIL 

1 00791 

1 

* THE  END  OF  THE  CURRENT  INPUT  LINE  IS  LOCATED. 

• 00792 

1 

• THE  NEXT  TOKEN  (A’  CARRIAGE  RETURN)  IS  THEN 

' 00793 

1 

• SCANNED  AND  RTURNED.  DATA  -STAT EMENTS  ARE  SIMILAR 

1 00794 

1 

• EXCEPT  THE  DATA  IS  WRITTEN  OUT  USEING  EMITDAT 

F CC795 

1 

1 00796 

1 

00  797 

1 

*/ 

1 C0798 

1 

SCANNER:  PRCCeCURE; 

1 00799 

2 

il  coaoo 

2 

/* 

1 0C801 

2 

' 00802 

2 

0 

♦ 

1 00803 

2 

* THE  FOLLOWING  UTILITY  PROCEDURES  ARE  USED  BY  THE 

0 

; 

- C0804 

2 

♦ SCANNER. 

0 

C0805 

2 

0 

0 

00806 

2 

00  000000  00  00  0000  0 00000  0000  0000  00  00  00  00000  000  0 00  0 00  0 0 0*0000 

. 

00607 

2 

*/ 

> 

C0808 

2 

J 

C0809 

2 

PUTINACCUM:  PROCEDURE; 

C0810 

3 

IF  NOT  CQNT  THEN 

00811 

3 

00; 

00812 

3 

ACCUMIACCUM  ;=■  ACCOM  H 1 ) = NEXTCHAR; 

00  813 

4 

HASHCODE  = (HASHCOOE  NEXTCHAR)  AND  HASHMASK; 

00814 

4 

IF  ACCOM  >=  (lOENTSlZE  - 1)  THEN 

C0815 

4 

CONT  = TRUE; 

, 00816 

4 

END; 

* 00817 

3 

RETURN; 

, C0818 

3 

END  PUTINACCUM; 

00819 

2 

CQ820 

2 

CC821 

2 

PLTANOGET;  PROCEDURE; 

00822 

3 

CALL  PUTINACCUM; 

1 

00823 

3 

CALL  GETMOBLANK; 

00824 

3 

RETURN; 

00825 

3 

END  putandget; 

[ 00826 

2 

00827 

2 

C0828 

2 

PLTANOCHAR:  PROCEDURE; 

C0829 

3 

CALL  PUTINACCUM; 

C0830 

3 

NEXTCHAR  = GETCHAR; 

00831 

3 

RETURN; 

00832 

3 

END  PUTANOCHAR; 

00633 

? 

00834 

2 

C0835 

2 

NUMERIC:  PRCCECURE  8YTE; 

C0836 

3 

RE TLRNINEXTCHAR  - 'O')  <=  9; 

00837 

3 

END  NUMERIC; 

C0838 

2 

£0839 

2 

LOWERCASE:  PROCEDURE  BYTE; 

C08<»0 

3 

RETURN  INEXTCHAR  >=  61H)  AND  (NEXTCHAR  <=  7AH); 

00841 

3 

END  LCWERiCASt; 

00642 

2 

00  843 

2 

00844 

OECIMALFT;  PROCEDURE  BYTE; 

00845 

3 

RETURN  NEXTCHAR  = •.*; 

00846 

.3 

END  DECIPALPT; 

00847 

2 

00848 

2 

CO  849 

2 

CCNViroiUPPER:  PRCCECURE; 

00850 

3 

IF  LOWERCASE  AND  LOWERTCUPPER  THEN 

' 00351 

3 

NEXTCHAR  = NEXTCHAR  AND  5FH; 

J 

C0852 

3 

RETURN; 

3 

00853 

3 

END  CONV$TO$UPPER ; 

00854 

2 

£0855 

2 

00856 

2 

LETTER:  PROCEDURE  BYTE; 

1 

00857 

1 

CALL  CQNViTOSUPPER ; 

< 

00858 

3 

RETURN  ((NEXTCHAR  - 'A')  <=  25)  CR  LOWERCASE; 

< 

£0859 

3 

END  letter; 

1 00860 

2 

J 

00861 

2 

] 

00  86  2 

2 

ALPHANUM:  procedure  BYTE; 

RETURN  NUMERIC  OR  LETTER  OR  OECIMALPT; 

J 

00863 

3 

1 

C0864 

3 

ENO  ALPHANUM; 

1 

C0865 

2 

j 

00866 

2 

1 

00867 

2 

SPQOLNUME.RIC:  PROCEDURE; 

1 

00  868 

3 

DO  while  NUMERIC; 

1 

£0869 

3 

CALL  PUTANOCHAR; 

J 

_C0870 

4 

END; 

t 

142 

j 

-J 

^ J 

00871 

00»j72 

00873 

00874 
00  875 
00876 
00  877 
00878 
C0879 
C0880 
00881 
00882 

00883 

00884 
00685 
00886 

00887 

00888 
C0889 
C0390 
0089  1 
C0892 

00893 

00894 

00895 

00896 

00897 
C0398 
00899 
C0900 

00901 

00902 

00903 
00504 

00905 

00906 

00907 

00908 

00909 

00910 

00911 

00912 

00913 

00914 

00915 

00916 

00917 

00918 

00919 
CC920 

00921 

00922 

00923 

00924 

00925 

00926 

00927 

00928 

00929 
C0930 
C0931 
00932 
00  933 

00934 

00935 

00936 

00937 

00938 
C0939 

00940 

0094 1 
C0942 

00943 

00944 

00945 

00946 

00947 

00948 

00949 
(0950 
00951 
C0952 

00953 

00954 

00955 

00956 
0095  7 
00958 
C0959 
(0960 

00961 

00962 

00963 

00964 

00965 
C0966 

_JJ0967 


3 

3 

2 

2 

2 

3 

3 

3 

3 

3 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


RETURN; 

END  SPOCUi'lUMERIC; 


SETUPSNEXTSCALL:  PROCEDURE; 

IF  NEXTCHAR  = • • THEN 
CALL  GETN08LANK; 

CONT  = FALSE; 

RE  TLRN; 

END  SETUPSNEXTSCALL; 

EMITDAT:  PRQCEOUREt CBJCODE) ; 

/* 

V»RITES  DATA  STATEMENTS  DURING  PASS2  AND 
COUNTS  SIZE  OF  DATA  AREA. 

♦ / 

DECLARE  CBJCOOE  BYTE; 

DATACT  = OATACT  + 1; 

IF  PaSS2  then 

CALL  EMIT(C8JC00£) ; 

RETURN; 

END  EMITDAT; 


/» 


« 4 

<■  LOOKUP  IS  CALLED  BY  THE  SCANNER  WITH  THE  * 

* PRINTNAME  OF  THE  CURRENT  TOKEN  IN  • 

« The  ACCUMULATOR.  LOOKUP  DETERMINES  IF  THIS  * 

* TOKEN  IS  A RESERVED  WORD  ANO  SETS  THE  ♦ 

<■  VALUE  OF  TOKEN.  IF  THE  TGKEN  IS  A PREOEFINEO  ♦ 

* FUNCTION  then  THE  SUBTYPE  ANO  FUNCOP  ARE  ALSO  ♦ 

* SET.  * 

* the  reserved  word  TABLE  IS  OIVIOEO  INTO  7 * 

* TABLES  FOR  RESERVED  WCROS  OF  LENGTH  I TO  7.  * 

* THE  FOLLOWING  VECTORS  ARE  ALSO  USED:  * 

* TK  - TOKEN-  ASSOC  I ATED  WITH  RESERVED  WCRO  ♦ 

* OFFSET  - INDEX  INTO  LNG  VECTOR  FOR  A GIVEN  * 

* R/W  LENGTH  ♦ 

* COUNT  - NUMBER  OF  R/W  OF  A GIVEN  LENGTH  * 

* TKOS  - INDEX  INTO  TK  FOR  A GIVEN  R/W  LENGTH  ♦ 

* ST  - SPECIAL  DATA  FOR  PREOEFINEO  FUNCTIONS  ♦ 

* w 

=»  PREDEFINED  FUNCTIONS  HAVE  TOKEN  VALUES  >64.  * 

* THIS  NUMBER  BECOMES  THE  FUNCOP  ANO  THE  TOKEN  * 

* IS  FUNCT.  FUNCOP  IS  THE  MACHINE  CODE  FOR  THE  * 

* PARTICULAR  PREDEFINED  FUNCTION.  * 

* ♦ 


*/ 


LOCKUP:  PROCECURE  BYTE; 

DECLARE  MAXRWLNG  LIT  '9‘;  /«  MAX  LENGTH  OF  A RESERVED  WCRO  */ 


DECLARE  LNGl  DATA(EOLCHAR,•<•,•(•,'■^•,•»•,')•,'- 

I POUND  SIGN,  UP ARROW) 
LNG2  DATA!  • I F • , ' TO*  , ■ GO*  , ' ON  • , • OR  • , • Evi ' , 
•LE  • , 'GE*  ,*NE*  i , /'>  ll 

LNG3  DATA!  'FOR  *,  ' L 6T  ' , *.R  EM  • , ' C IM*  , *DEF  • , 

• TAN*  , 'SIN* , ' CCS*  , *SWR* , 'TAB* , 
*FRE  * , * ATN* , * ABS*  , * E XP * , ' I NT • , 
*RND*  , *SGN* , * IMP* , *ASC* , *VAL  ' , 

'OUT* ) , 

/*  29  */ 

LNG4  DATA! 'THEN* , 'READ* , 'GOTO* , 'ELSE  * , *N 

* STOP* , 'DATA* , • FI LE* ,*CHR$*  , *M 
'STEP*  STF.S*  , 'COSH*  , *SINH*  ) , 

LNG5  DATA!*  PRINT* , * INPUT* GOSUB* , 'CLOSE 
•LEFTS*  ) , 

LNG6  DATA! 'RETURN* , 'RIGHTS* , 'REMARK* ) , 
LNG7  DATACRESTCRE*  > , /•  1 */ 

LNG9  DATA! 'RANDCMI 2E ' ) , 

TK  DATA10,TCR,L'’.S9T,LPARN,TPLUS,ASTRK, 
comma, EgUAL.SL ASH, SCGLN,GTRT,T 
EXPON,  /»  LNG  1 */ 

T 1 F, TTC, TGO, TON, TOR, ECU AL, LESS 
TGEO.TNE,  /*  LNG2  »/ 
TFOR,TL=T,TRcM,TOIM,TD£F,TNOT, 
72,69,70,73,74,78,84,76,71,65, 
66, TEND, 79, 67, 68, 80, 81 ,68, TXOR 
/•  LNG  3 */ 

TTHEN,TREA0, TGGTO,TELSE,TNEXT , 

TFIlE,B2,85,TSTER,87,89,R0,  / 

TPRNT , TINPT, TG0SB,TCLaS,83, 
TRETN,36  ,TR£M,  /•  LNG  6 */ 
TREST.TIKN), 

OFFSET  DATAIO ,0,15 ,3 T, 124, 1 BO , 205,223, 230, 
COUNT  DATA  I 0,  15, 11 ,29, 14,5,3 , 1,0,1) , 

TKOS  OAT A (0,0, 15,26,55,69,74,77, 78,78), 
ST  DATAd, 1,0, 1,1, 1,1, 1,1, 1,1, 0,0, 1,0, 
5,65,70,5,71,70,65,5,1,1); 
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, /*  - 
*LT* ,'GT 
*/ 

*NCT* , 'AND* , 
'LOG* , *LEN* , 
*cNO*  ,*  PCS* , 
*XCR*, *SU8*, 


/ • , 

»/ 


EXT*  , 

IDS* , 

14 

/*  5 */ 

/»  3 */ 


*/ 


RPARN, TM) 
COL  IN, POL 

T.GTRT ,Tl 

TANO  , 

,t50B, TOl 

TSTOP, TO/ 
» LNG  4 * 
/•  L^ 


230) , 

1, 


DECLARE 


PTR  ^ ADDRESS, 

FIEL#  BASED  PTR  BYTE, 

I 9YTE; 


CarP^RE;  PRClCEDUSe  BYTE; 

DECLARE  1 BYTE: 

I » 0: 

DC  WHILE  IFIELOU)  = ACCUMd  :=  I ♦ II)  AND  I <=  ACCUM; 
END; 

RETURN  I > ACCOM; 

END  CCMPARE; 

IF  ACCUM  > MAXRWLNG  THEN 
RETURN  FALSE; 

PTR  = QFFSET(ACCUM)  <■  .LNGl; 

DO  I = I TO  COUNT! ACCUM) ; 

IF  COMPARE  THEN 

00; 

IFHTOKEN  ;=  TKITKOS!  ACCUM)  ♦ I))  > 6A)  ANO 
(TOKEN  <>  TOATA)  THEN 
00; 

SUBTYPE  = STITCKEN  - 65); 

FUNCOP  = TOKEN; 

TO,KEN  = FUNCT; 

ENO; 

RETURN  TRUE; 

ENO; 

PTR  = PTR  + ACCUM; 

ENO; 

RETURN  FALSE; 

ENO  LOOKUP; 


C1050  A 

01051  3 

01052  3 

01053  3 

01054  3 

01055  3 

01056  3 

01057  3 

01058  3 

01059  3 

C1060  3 

01061  3 

01062  A 

01063  5 
0106A  A 
01065  A 
01066.  A 

J106  7 5 


00  forever;  /*  to  handle  rem,  oat  and  continuation  */ 

ACCUM,  hashccde,  token,  subtype  = 0; 

/•  FIRST  CASE  - IS  THIS  A STRING  OR  THE  CONTINUATION 
OF  A STRING  (ONLY  STRINGS  MAY  BE  CGNT I MU S 0 ) 

»/ 

IFINcXTCFAR  = STRINGDELIMI  OR  CONT  THEN 
DO;  /*  FOUND  STRING  */ 

TOKEN  = string; 

CONT  = FALSE; 

DC  forever;  /»  ALLOWS  IN  STRING  TO  BE  */ 

DO  WHILE  GETCHAR  <>  STRINGOELIM; 

CALL  putinaccum; 

IF  CONT  THEN  return; 

END; 

CALL  GETNOBLANK; 

IF  NEXTCHAR  <>  STRINGOELIM  THEN 
RETURN; 

CALL  PUT$IN$ACCUM; 

END;  /*  OF  DO  FOREVER  */ 

END;  /♦  OF  RECOGNIZING  A STRING  */ 

/* 

NEXT  CASE  IS  A NUMERIC  WHICH  MUST  START  WITH  A 
NUMBER  OR  WITH  A PERIOD 

ONLY  FIRST  IDENTSIZE  CHARACTERS  ARE  RETAINED 

«■/ 

ELSE  IF  NUMERIC  OR  OECIVALPT  THEN 
DO;  /*  HAVE  DIGIT  */ 

TCKEN  = floatpt; 

DO  WHILE  NEXTCHAR  = 'O';  /*  ELIM  LEADING  ZEROS  ♦/ 
NEXTCHAR  = GETCHAR; 

END; 

CALL  SPOOLNUMERIC;  /*  GET  ALL  THE  NUMBERS  ♦/ 

IF  oeCIMALPT  THEN 
DO: 

CALL  PUTANOCHAR; 

CALL  SPOOLNUMERIC; 

END; 

CALL  convstosupper; 

IF  NEXTCHAR  = 'S'  THEN 

DO;  /«  A floating  point  number  */ 

CALL  PUTANOGET; 

IF  (NEXTCHAR  = •+•)  OR  ( NEXTC H AR=  •- • ) THEN 
CALL  PUTANOGET; 

IF  not  numeric  THEN 

CALL  ERROR! • IF' ) ; 

CALL  SPQOLSNUMERIC; 

ENO; 

IF  ACCUM  = 0 THEN 

HASHCOOe,  ACCUM(ACCUM  :=  1)  =•  'O'; 

CALL  setupsnextscall; 
return; 

END;  /*  OF  RECOGNIZING  NUMERIC  CONSTANT 

/» 

NEXT  CASE  IS  IDENTIFIER.  MAY  BE  RESERVED  WORD 
IN  WHICH  CASE  MAY  BE  REM,  OR  DATA.  THESE  STATEMENTS 
ARE  handled  by  The  scanner  vice  the  parser  ANO  THEN 

another  loop  through  the  scanner  is  made. 

ONLY  IDENfSIZE-l  CHARACTERS  ARE  RETAINED 

•/ 

ELSE  IF  LETTER  THEN 

DO;  /*  have  a LETTER  •/ 

DO  WHILE  ALPHANUM; 

call  PUTANOCHAR; 

END; 

IF  NEXTCHAR  THEN 

DO; 

SUBTYPE  = string; 

CALL  PUTANOCHAR;  ■ ■ 
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END; 

ELSE 

SUBTYPE  = FLOATPT; 

IF  NOT  LOOKUP  THEN 

00: 

IF  ACCUMU)  = 'F*  AND  ACCUMI2)  = *N* 

ANO  ACCUM  <>  1 THEN 
TOKEN  = UOFUNCT; 

ELSE 

TOKEN  = IDENTIFIER; 

CALL  SETUPSNEXTiCALL; 

RETURN; 

ENO; 

ELSE  /»  IS  A RH  ■>/ 

IF  TOKEN  = TREM  THEN 

DO  WHILE  NEXTCHAR  <>  EOLCHAR; 

NEXTCHAR  = GETCHAR; 

CALL  CHECKSCONT INUATION; 

ENO; 

ELSE 

IF  TOKEN  = TOATA  THEN 

00; 

DECLARE  DAT  LIT  *51 • ; 

CALL  EMIT  DAT (CAT)  : 

CALL  cMITOAT(NEXTCHAR) ; 

DO  WHILE  GETCHAR  <>  EOLCHAR; 

CALL  CHECKSCONT INUAT ION; 
CALL  EMITOAT(NEXTCHAR) ; 
END; 

CALL  E.MITDAT  (*,•); 

CALL  EMITDAT(O); 

DATACT  = OATACT  - 1; 


CALL  SETUPSNEXTSCALL ; 
return; 

END; 

END;  /*  OF  RECOGNIZING  RW  OR  IDENT  ♦/ 

/♦ 

LAST  CASE  IS  A SPECIAL  CHARACTER  - IT  MAY  BE 
the  CONTINUATION  CHARACTER  IN  WHICH  CASE  JUST 
GO  TO  NEXT  line  AND  SCAN  SOMEMORE. 


DO;  /*  SPECIAL  CHARACTER  »/ 

IF  NEXTCHAR  = CONTCHAR  THEN 

CALL  CriECKSCONTINUATION; 


CALL  PUTANOGET; 

IF  NOT  LOOKUP  THEN 

CALL  ERRORC  IC)  ; 

return: 

END; 

END;  /«  OF  RECOGNIZING  SPECIAL  CHAR  ♦/ 
END;  /*  OF  DO  FOREVER  */ 

ENO  SCANNER; 


♦ 

« SYMBOL  TABLE  PROCEDURES 

« 

a THE  SYMBOL  TABLE  IS  BUILT  FROM  .MEMORY  TOWARD 

* THE  LARGEST  USABLE  AOCRESS  WHICH  IS  STORED  IN  MAX. 

* INFCKMATION  REQUIRED  DURING  FOR  STATEMENT  CCOE 

* GENERATION  IS  MAINTAINED  STARTING  AT  MAX  AND 

* WORKING  DOWN  TOWARD  THE  TOP  OF  THE  SYMBOL  TABLE 

* THE  FOLLOWING  ARE  MAJOR  GLOBAL  VARIABLES  USED 

* BY  THE  SYMBOL  TABLE  AND  ThEIR  MEANING: 

* SBTBLTOP  - CURRENT  POSITION  OF  FORZNEXT 

* STACK. 

* S6TBL  - CURRENT  TOP  OF  SYMBOL  TABLE 

* BASE  - ADDRESS  OF  BEGINNING  OF  ENTRY.  THIS 

* MUST  BE  SET  BEFORE  AN  ENTRY  MAY  BE 

a ACCESSED. 

* PRINTNAME  - ADDRESS  OE  PRINTNAME  OF  AN  ENTRY 

a TO  BE  USED  IN  REFERENCE  TO  THE 

a SYMBOL  TABLE, 

a SYMHASH  - HASH  CF  TOKEN  REFERENCE  BY 

a PRINTNAME 

a 

a THE  FOLLOWING  IS  THE  STRUCTURE  OF  A SYMBOL 
a TABLE  ENTRY: 

a LENGTH  OF  PRINTNAME  - I BYTE 

a COLLISION  FIELD  - 2 BYTES 

a PRINTNAME  - VARIABLE  LENGTH 

a TYPE  - 1 BYTE 

a LEFTMOST  BIT  OF  THIS  BYTE  IS  A FLAG 

a TO  INDICATE  IF  THE  ADDRESS  HAS  BEEN 

a SET. 

a LOCATION  - 2 BYTES 

a SUBTYPE  - 1 BYTES 

a 

a THE  FOLLOWING  GLOBAL  ROUTINES  ARE  PROVIDED 
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"01165 
01166 
0116? 
01  168 
01I6V 

01170 

01171 

01172 

01173 

01174 

01175 

01176 

01177 
CU78 
01179 
C1180 
01  181 
01182 
01  183 
31 184 
01 135 
01  186 
01187 
Cl  IBS 
01  189 
Cl  190 
01191 
01  l92 

01193 

01 194 
01  195 

01196 

01197 

01198 
Cl  199 
C1200 
01201 
01202 

01203 

01204 

01205 

01206 

01207 

01208 
C1209 
C1210 
01211 
01212 

01213 

01214 

01215 

01216 
01217 
01213 

01219 

01220 
01221 
01222 

01223 

01224 

01225 

01226 
01227 
C1228 
01229 
C1230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01238 
C1239 
C1240 

01241 

01242 

01243 

01244 

01245 

01246 

01247 
C1248 
C1249 
C1250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 

01258 

01259 
C1260 
01261 

-01262 


FOR  SYMBOL  TABLE  MANIPULATION; 

LOOKUP  ENTER  GETLEN  GETYPE 

SETYPE  GETRES  GETADUR  SETAOOR 

SETSUQTYPE  GETSUBTYPE  UNLINK  RELINK 


«««»««»«« «*«««**««*««« ««««*««««««»•*•«*••«*««««« ••«*««•« 

*/ 

INI TI ALI ZEJ  SYMTBL : PROCEDURE; 

/♦  FILL  HAShTAULE  WITH  O'S  ♦/ 

IF  PASSl  THEN 
00; 

CALL  FILL!  .HASHTABLE, 0, SHL( HASHTBLSI ZE ,2 11 ; 

SBTBL  = .MEMORY; 

END; 

/*  INITIALIZE  POINTER  TO  TOP  OF  SYMBOL  TABLE  */  ■ 

SBTBLTCP,  NEXTSTMTPTR  = MAX  - 2; 

NEXTBYTEd)  =0; 

RETURN: 

END  INITIALIZESSYMTBL: 

SETADCRPTR:  PROCEOIRE (OFFS ET ) ; /♦  SET  PTR  FOR  AOOR  REFERENCE  */ 

DECLARE 

OFFSET  BYTE! 

APTRADDR  = BASE  * PTR  + OFFSET;  /*  POSITION  FOR  ADDR  REFERENCE  •/ 

return; 

END  SETAODRPTR; 

GETHASH:  PROCEDURE  BYTE; 

DECLARE  HASH  BYTE, 

I BYTE; 

HASH  = o; 

APTRAOOR  = EASE  ♦ 2; 

DC  1 = 1 TO  PTR; 

HASH  = (HASH  + BYTEPTRIin  AND  HASHHASK; 

ENO; 

RETURN  hash; 

END  GETHASH; 


NEXTENTRY:  PROCEDURE; 
BASE  = BASE  + PTR 
RETURN; 

ENO  NEXTENTRY; 


♦ 7; 


SETLINK:  prccedure: 

APTRAOOR  = EASE  H 1; 

RETURN; 

ENO  SETLINK; 

HASHTBUOFSSYMHASH:  procedure  ADDRESS; 

RETURN  HASHTABLEI SYMHASH) ; 

END  HASHT6L  iCFSSYMHASH; 

LIMITS:  PRCCEOUREICOUNT) ; 

/» 

CHECK  TC  SEE  IF  ADDITIONAL  SBTBL  WILL  OVERFLOW  LIMITS  OF 
MEMORY.  IF  SO  THEN  PUNT  ELSE  RETURN 
»/ 

DECLARE  COUNT  BYTE;  /*SIZE  BEING  ADDED  IS  CCUNT  */ 

IF  S6TBLT0P  <=  (SBTBL  ♦ COUNT!  THEN 
DC;  ^ 

t>ASS2  = TRUE;  /♦  TO  PRINT  ERROR  MSG  */ 

CALL  ERRORCTO*); 

CALL  M0N3; 

END: 

RETURN: 

ENO  LIMITS; 

SETAODR:  PROCEDURE! LOC ) ; ^ 

/"SET  the  ADDRESS  FIELD  AND  RESOLVEtT  B IT*/ 

DECLARE  LCC  ADDRESS; 

CALL  SETAODRPTR  (4); 

ADCRPTR=LOC; 

APTRAOOR  = APTRADDR  - 1; 

8YTEPTH=8YTEPTR  OR  80H; 

RETURN; 

END  SETAODR; 

LCCKUP;  PROCEDURE  BYTE; 

/• 

CHECK  TO  SEE  IF  P/N  LOCATED  AT  ADDR  IN  PRINTNAMS  IS  IN  SBTBL 
RETURN  TRUE  IF  IN  SBTBL 
RETURN  false  IF  NOT  IN  SBTBL. 

8ASE=A0DRESS  IF  IN  SBTBL 

•/ 

DECLARE 

LEN  BYTE, 

N BASED  PRINTNAME  BYTE;  /<■  N IS  LENGTH  OF  P/N  •/ 

BASE  • HASHTBL JOFSSYMHASH; 
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0li63 

01264 

01265 

01266 
01267 
01260 
C1269 

01270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 

01278 

01279 
C1280 
01281 
01282 

01283 

01284 

01285 

01286 

01287 

01288 
C1289 
C1290 

01291 

01292 

01293 

01294 

01295 

01296 

01297 

01298 

01299 
C1300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 
C1308 
C1309 
C1310 

01311 

01312 

01313 

01314 

01315 

01316 
C1317 
C1318 
01319 
C1320 

0 1 321 

01322 

01323 

01324 

01325 
C1326 

01327 

01328 
C1329 
Cl  33  0 

01331 

01332 

01333 
C1334 

01335 

01336 

01337 
01333 
01339 
C1340 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01348 
C1349 
C1350 

01351 

01352 

01353 

01354 

01355 

01356 

01357 
C1358 
C1359 

^1360 


2 

2 

3 

3 

4 
4 
3 
3 
3 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 

1 
1 

2 
2 
1 

1 
1 

2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 


CC  ViHiLE  BASE  <>  0} 

tFILEN  :=  PTH)  = H TH5N 
DC  HHJ'.E  (PTRlLEN  2)  = NtLEN)); 
IF  ILcN  : = LEN  -11=0  THEN 
RSTUHN  TRUE; 

END; 

CALL  SETLINKJ 
BASE  = ADORPTR; 

END; 

RETURN  FALSE; 

END  LCOKUP; 


ENTER:  PROCECURE; 

/* 

ENTER  TOKEN  REFERENCE  BY  PRINTNAHE  AND  SYMHASH 
INTO  NEXT  AVAILABLE  LOCATION  IN  THE  SYMBOL  TABLE. 
SET  BASE  TO  BEGINNING  OF  THIS  ENTRY  AND  INCREMENT 
SBTBL.  ALSO  CHECK  FOR  SYMBOL  TABLE  FULL. 

*/ 

DECLARE 

I BYTE, 

N BASED  PRINTNAME  BYTE; 

CALL  LIMITSU  :=N<-7)  ; 

BASE  = SBTBL;  /*  BASE  FOR  NEW  ENTRY 

CALL  MCVEIPRINTNAME  <•  I, SBTBL  + 3,(PTR  :=  NI); 

CALL  SETACOFPTRIB  );/*  SET  RESOLVE  BIT  TO  0 =»/ 

BYTEPTR  = O: 

CALL  SETLINK; 

ADORPTR  = HASHTBLiOFiSYMHASH; 

HASHTABLEISYMHASH)  = BASE; 

SBTBL  = SBTBL  * I ; 

RETURN; 

END  ENTER; 


GETLEN:  procedure  BYTE;  /^RETURN  LENGTH  OF  THE  P/N  ♦/ 

RETURN  PTR; 

END  GETLEN; 


GETYPE:  procedure  BYTE;  /^RETURNS  TYPE  OF  VARIABLE  */ 

CALL  SETACDRPTR  (3); 

RETURN  (BYTEFTR  AND  7FH) ; 

END  GETYPE; 


SETYPE:  PROCEDURE  (TYPE);  /*SET  TYPEFIEuD  = TYPE  ♦/ 

CECLARE  type  BYTE; 

CALL  SETAODRPTR  13); 

BYTEPTR  = BYTEPTR  OR  TYPE; 

/♦THIS  SETS  THE  TYPE  AND  PRESERVES  RESOLVED  BIT  ♦/ 

RETURN; 

END  SETYPE; 


GETRES:  PROCEDURE  BYTE; 

/■* 

RETURN  TRUE  IF  RESOLVED  BIT  = 1. 
RETURN  FALSE  IF  RESOLVED  BIT  = 0 

*/ 

CALL  SETAOORPTRO  ) ; 

RETURN  R0L(6YTEPTR,l); 

END  GETRES: 


GETACDR;  PROCEDURE  ADDRESS; 

/♦return  the  address  of  the  P/N  LOCATION  ♦/ 
CALL  SETA0DRPTR(4); 

RETURN  ADORPTR; 

END  GETAODR  ; 


SETSUBTYPE:  PROCEDURE  I STYPE ) ; /♦INSERT  THE  SUBTYPE  IN  SBTBL  ♦/ 

DECLARE  STYPE  BYTE; 

CALL  SETAODRPTR  (6); 
eYTEPTR=STYPE; 

RETURN: 

END  SETSUBTYPE; 


GETSU6TYPS:  PROCEDURE  BYTE;  /*RETURN  THE  SUB  TYPE  */ 

CALL  SETAODRPTR  (6); 

RETURN  BYTEPTR; 

END  GETSUBTYPE; 


unlink:  procedure; 

DECLARE  NEXTA  ADDRESS, 

NUPPARM  BYTE, 

I Sl^TE, 

ENTRYPT  BASED  NEXTA  ADDRESS; 

NUPPARM  = GETYPE; 

00  I = I TO  NUMPARM; 

CALL  NEXTENTRY; 

NEXTA  = SHLIGETHASH,! ) + .HASHTABLE;  /•  ITS  ON  THIS  CHAIN  */ 
00  while  ENTRYPT  <>  BASE; 

NEXTA  = ENTRYPT  ♦ 1; 
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01361  4 

Ol3o2  3 
01363  3 

C136‘*  3 

0l3o5  2 

01366  2 

01367  I 

01368  I 

C1369  1 

01370  2 

01371  2 

01372  2 

01373  2 

01376  2 

01375  2 

01376  2 

01377  2 

C1378  3 

C1379  3 

Cl  380  3 

01381  3 

01382  2 

01383  2 
C1386  I 

01385  I 

01386  I 

01387  I 

01383  i 
01389  1 

C1390  I 

01391  1 

01392  1 

01393  I 

01396  1 

C1395  I 

01396  1 

01397  I 

01398  1 


01626  2 
C1625  2 

01626  2 

01627  2 

01628  2 

C1629  2 

Q1630  2 

01631  2 

01632  2 

01633  2 

01636  2 

01635  2 

01636  2 

01637  2 

0163  8 2 

G1639  2 

C1660  2 

01661  2 
01662  2 
01663  2 

01666  2 

01665  2 

01666  2 

0166  7 2 

01668  2 
01669  2 

C1650  2 

01651  2 

01652  2 

01633  3 

01656  3 

01655  3 

01656  3 

01657  3 

^1650  3 


tND; 

CALL  3ETLINK; 
ENTSYPf  = adorptr; 

ENO; 

return; 

ENO  UNLINK; 


RELINK:  PROCEDURE; 

DECLARE 

TEHPA  ADDRESS. 

I BYTE, 

NUPPARM  BYTE. 

LOC  BASED  TEMPA  ADORcSS; 
NL'MPARP  = CETYPE; 

DO  I = 1 TO  NUPPARM; 
call  NEXTENTRY; 

TFMPA  = BASE  ♦ 1: 

LCC  = t-ASHTAeLE(GETriASHl  ; 
HASETABLEI GETHASHl  = BASE; 
END; 

RE  TURN : 

END  RELINK. 


PARSER  AND  CODE  GENERATION  SECTION 


NMUPONICS  FOR  N8ASIC  MACHINE 


DECLARE 


01399 

2 

FAD 

LIT 

*0’  , 

OUP  LIT  ' 

13'  , 

WST  LIT  ' 

36'  , 

C1600 

2 

FMI 

( 1 r 

• 1 • , 

XCH  LIT  ' 

19*  , 

soF  lit  • 

37*  , 

01601 

2 

FMU 

LI  T 

•2'  , 

STD  LIT  ' 

20'  , 

RD8  LIT  • 

38  ' , 

01602 

2 

FDI 

L 1 r 

•3'  , 

SLT  LIT  • 

21'  , 

ECR  LIT  • 

39*  , 

01603 

2 

EXP 

LIT 

•6'  , 

SGT  LIT  > 

22', 

WRB  LIT  • 

60'  , 

01606 

2 

LSS 

LI  T 

•5'  , 

SEQ  LIT  • 

23'  , 

RON  LIT  ' 

61 ' , 

01605 

2 

(j  • K 

LIT 

■6*  , 

SNE  LIT  • 

26'  , 

RDS  LIT  • 

62'  , 

01606 

2 

ECU 

Li  T 

' 7*  , 

SGF  lit  < 

25'  , 

WRM  LIT  • 

63* , 

01607 

2 

NEO 

1 I T 

•S'  , 

SLE  LIT  • 

26'  , 

WRS  LIT  • 

66'  , 

01608 

2 

GEO 

LIT 

•9'  , 

STS  LIT  • 

27', 

OPN  LIT  < 

65'  , 

C1609 

2 

LEO 

LI  I 

• 10* 

, ILS  LIT 

• 23'  , 

CCN  LIT 

■ 66'  , 

C1610 

2 

NO  TO 

L I T 

'll* 

, CAT  lit 

• 29'  , 

RST  LIT 

'67*  , 

01611 

2 

A NOG 

LIT 

•12* 

, PRO  LIT 

'30', 

NEG  LIT 

'68', 

01612 

2 

eOR 

Li  I 

' 13* 

, RTN  LIT 

' 31  • , 

RES  LIT 

>69'  , 

01613 

2 

LOO 

LM 

' 16' 

, ROW  LIT 

'32'  . 

MOP  LIT 

' 50*  . 

01616 

2 

STO 

Li  r 

, 

, SUBO  L IT 

'33* 

, DAT  LIT 

•51* 

01615 

2 

XI  T 

1.  1 ! 

• 16* 

, ROV  LIT 

•36'  , 

DBF  LIT 

' 52'  , 

01616 

2 

DEL 

LIT 

• I 7' 

, WRV  lit 

•35', 

NSP  LIT 

• 53'  , 

01617 

2 

SRS 

LIT 

• 56  • 

, 3RC  LIT 

• 55'  , 

BFC  LIT 

•56*  , 

01618 

2 

BFN 

1 1 T 

* 57* 

, CV3  LIT 

' 58'  , 

RCN  LIT 

• 59'  , 

C1619 

2 

DRS 

LIT 

•60* 

f ORh  LIT 

'61'  , 

EDR  L IT 

'62'  , 

C1620 

2 

EDW 

LI  r 

•63' 

, CLS  LIT 

•66'  , 

RON  LIT 

•91'  , 

01621 

2 

CKU 

L 1 T 

•92' 

, EXR  LIT 

• 93  ' , 

06F  LIT 

•96', 

01622 

2 

SQL 

L ! T 

•95' 

, aoj  l it 

•96  ’ , 

POT  LIT 

• 60', 

01623 

2 

IRN 

LI  r 

• //' 

* 

DECLARE 

STATE  STATESIZE, 

/* 

TFS  FOLLOWING  VECTORS  ARE  USED  AS  PARSE  STACKS 
SYNTHESIZE  AND  THE  PARSER  ACCESS  THESE  ARRAYS 

statestackipstacksizei  statesize. 

HASHIPSTACKSI Zc)  BYTE, 

SYMLCC  (PSTA>,KSIZ£)  ADDRESS, 

SSLOC  IPSTACKS IZE)  ADDRESS, 

VARIPSTACKSIZEl  BYTE, 

TYPEIPSTACKSI ZE)  BYTE, 

STYPFIPSTACKS IZE)  BYTE, 

VAfiCIVARCSIZE ) BYTE, 

ONSTACKIMAXONCDUNT)  BYTE, 

VARINOEX  BYTE,  /»  INDEX  INTO  VAR  */ 

5P  BYTE, 

MP  BYTE, 

MPPl  BYTE, 

NOLCOK  BYTE, 

IFLAELNG  byte  INITIAL(2), 

/» 

THE  FOLLOWING  VARA8LES  ARE  USED  TO  GENERATE 
CCMPILcR  LABELS. 

•/ 

IFLA02  BYTE  INITIALI23)  , 

IPLASlE  BYTE; 

EMITCCN:  PROCEDUREtCHAR ) ; 

/• 

WRITES  NUMERIC  CONSTANTS  DURING  PASSl 

»/ 

DECLARE  CHAR  BYTE; 

IF  PASSl  THEN 

CALL  EMITlCHARl; 
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« « « 


I 


X1A59 

CUoO 

01A62 

01<i63 

01964 

01965 

01966 
C1967 
C1968 
01969 
C1970 

01971 

01972 

01973 
01979 

01975 

01976 

01977 
01973 
01979 
C1930 
019U1 
01932 
01  983 
01989 
019&5 
01986 
C1987 
01988 
C1969 
C1990 

01991 

01992 

01993 
01999 

01995 

01996 

01997 
Cl  99  a 
Cl  999 
C1500 
01501 
C1502 
01503 
01509 

01505 

01506 
01  507 
01508 
C1509 
C1510 

01511 

01512 

01513 
01519 

01515 

01516 

01517 

01518 

01519 

01520 

01521 

01522 

01523 
01529 

01525 

01526 

01527 
01523 
01529 
C1530 

01531 

01532 

01533 
01539 
01  535 

01536 

01537 

01538 
C1539 
Cl  590 

01591 

01592 

01593 
01599 
01595 
01  596 
01597 
01  598 
C1599 
C1550 

01551 

01552 

01553 
01  559 

01555 

01556 
_01557 


3 

3 

2 

2 

3 

3 

3 

■> 

3 

3 

3 

3 

3 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

3 

3 

2 

2 

2 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 


RB  TURN; 

END  E.MTCON; 

INiri ill 2£t  SYNUiESl 2E:  PROCEDURE: 

DECLARE  C0N2FRJ  J A T A ( 0 1 H , 3 OH  } ! 

DECLARE  CCNCNE  D A T A ( 0 1 H, 3 1 H ) : 

CCOESiZE  ,0A  TACT  ,UNSTAC9,  IFLAbLc  =■  0; 

ECACT  = l; 

PRICT  = crfffh: 

CALL  SETJFLAGS; 

IF  PASSl  TFEN 
00; 

CALL  SETUPilNTSFlLE: 

PR  I NT  NAME  = .CONONE; 

SY.MHASH  = 31  H; 

CALL  enter; 

CALL  EM  ITCONOtri)  ; 

CALL  EMITCCN( > t*  ) ; 

CALL  SErA0DR(01:  /*  CONSTANT  1 IS  AT  FOA  PCS  0 *t 

CALL  SFTYPc(9):  /•  TYPE  CONST  */  ■ 

PRINTNAPE  = .CO”’ERO; 

SYMFASH  = 30H; 

CALL  ENTER; 

CALL  EMITCCNOOH)  ; 

CALL  EM  ITCONI • $'  1 ; 

CALL  SETAOORU): 

CALL  SETYPEI9); 

END; 

RETURN; 

END  INITIALiZEiSYNTHESIZE: 


SYNTFE  SIZE : PROCEDURE ( PRODUCT  I ON  I ; 
CECLARE 

PROCUCTICN  BYTE; 


DECLARE 

/* 

TFESE  LITERALS  DEFINE  DIFFERENT  TYPES  WHICH 
MAY  BE  PLACED  IN  THE  TYPE  FIELD  Or  THE  SYM3CL 
TABLE  BY  ROUTINES  IN  SYNTHESIZE 

*/ 

SIPVAR  LIT  'OOH* , 

SueVAR  L IT  *02' 1 
CCAST  LIT  *09' , 

LABLE  LI T ' 08'  , 

UNFUNC  L IT  'OAH'  i 

DECLARE 

/ • 

THE  FOLLOWING  VARIABLES  ARE  USED  TO  HOLD  THE 
CONTENTS  OF  THE  PARSE  STACKS  CURING  EXECUTION 
OF  SYNTHESIZE.  THE  PROCEDURE  COPY  IS  CALLED 
TO  UPDATE  EACH  OF  THESE  VARIABLES  ON  EACH  CALL 
TO  SYNTHESIZE.  THIS  REDUCES  THE  NUMBER  OF 
SUBSCRIPT  REFERENCES  REOUIREO 

»/ 

(TYPESP,TYPEMP|TYPEMP1)  BYTE, 
(STYPESPtSTYPEMP.STYPEMPl)  BYTE, 
(HASHSP.HASHMP.HASHMPU  byte, 

(SYMLOCSP,SYNLOCMP,  SY PL OCMP 1 ) ADDRESS, 

1 SRLOCSP  ,SRLOCMP)  ADDRESS; 


4> 

* ■ TFE  FOLLOWING  PROCEDURES  ARE  USED  BY  SYTHESIZE 
« TO  GENERATE  CODE  REgUIRED  BY  THE  PRODUCTIONS 

* 

♦ THE  FIRST  GROUP  OF  PROCEDURES  CONSISTING  OF 

♦ CCPY  AND  THE  SET PROCEDURES  ARE  USED 

* TO  PREVENT  ThE  LARGE  AMOUNT  OF  SUBSCRIPTING 

* that  kCULO  be  RHCUIREO  to  ACCESS  THE  PARSE 

* STACKS  DURING  CODE  GENERATION. 

« 

* ThE  REMAINING  PROCEDURES  DIRECTLY  SUPPORT  CODE 

• GENERATION  AMO  APE  ARRANGED  IN  LCGICAL  GROUPS 

• SUCH  AS  THOSE  WHICH  ASSIST  IN  ACCESSING  THE 

* SYMBOL  TABLE  OR  THOSE  USED  TO  GENERATE  INTERNAL 

• COMPILER  LASLES. 

« 

»/ 

COPY:  FRCCECURE: 

TYPESP  = TYPE! SPI : 

TYPEMPl  = TYB£<  MPPl ) ; 

TYFcP.P  = TYPEIMPI  ; 

STYPE  SP  = STYPEI SP»  I 
STYPEPPl  = STYPEI MPPl  ) ; 

STYPEPP  = STYPEINPI ; 

SYMLOCSP  = SYMLOCI SP) ; 

SYPLQCMPl  = SYMLOC(MPPl); 

SYPLOCMP  = SYMLOCIMP); 

HASHMP  = HA  SHI MP)  ; 

HASFM.Pl  = mASHIMPPI  ) ; 

HASHS?  = HASHI SP) ; 

SRLOCSP  = SRL3CI SP ) : 

SRLCCMP  = SRLOCIMP) ; 


149 


'01558 

C1359 

C1560 

01561 

01562 

01563 
0156A 

01565 

01566 

01567 

01568 
C1569 
Cl  570 

01571 

01572 

01573 

01574 

01575 
C1576 

01577 

01578 
Cl  579 
Cl  580 

01581 

01582 

01583 

01564 
015S5 
01586 
01567 
01583 
C1539 
C1590 

01591 

01592 

01593 

01594 

01595 

01596 

01597 

01598 
C1599 
C1600 
01601 
01602 

01603 

01604 

01605 

01606 

01607 

01608 
01609 
C1610 
01611 
01612 
01613 
C1614 

01615 

01616 

01617 

01618 
01619 
C1620 
01621 
01622 

01623 

01624 
C1625 
01626 
Cl  62  7 
01628 
01629 
Clc30 

01631 

01632 
0163  3 

01634 

01635 

01636 

01637 

01638 

01639 

01640 

01641 
C1642 

01643 

01644 

01645 

01646 
Cl  64  7 
C1648 
01649 
C1650 

01651 

01652 

01653 
0lo54 
01655 

.01656 


4 

4 

3 

3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 

3 

4 
4 

4 

4 

4 

4 

4 

4 

4 

3 

3 

4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 


RETURN; 

END  cof'y; 


SETSYMICCP:  PROC  EOUREI  A)  ; 
CECLtfRE  A ADDRESS; 
SYMLOCJSP)  = a; 

RETURN  ; 

END  SETSYMLCCSP; 


SETSYMICCMP:  PROC EDURE t A) ; 
DECLARE  A ADDRESS; 
SYMLOC(MP)  = A; 
RETURN; 

END  SETSYMLQCMP; 


SETTYPESP:  FROCEOURH ( 8 ) ; 
CECLARE  8 BYTE; 
TYPEl SP)  = 3 ; 
RETURN; 

END  SETTYPESP; 


SETSTYPESP:  PROC EOURE « B)  ; 
CECLARE  3 3YTE; 
srYOE(SP)  = 8; 
RETURN: 

END  SETSTYPESP; 


SETSTY’ERP:  PF.CCECUREtB)  ; 
DECLARE  B BYTE; 
STYPE(PP)  = B: 

RETURN  ; 

END  SEYSTYPEPP; 


SETTYPEPF;  FRCCEDUREO) ; 
DECLARE  6 BYTE: 

TYPE  IMP)  = a; 

RE  TLRN; 

END  SETTYPENP; 


SETHASHPP:  FRCCEDUREIB) ; 
DECLARE  B BYTE; 
HASPiPPJ  = 3; 

RETURN  : 

END  ScTHASHPP; 


SETHASHSP:  FRCCEDURE (3) : 
DECLARE  8 BYTE; 
HASMSP)  = 3; 

RE TLRN; 

END  SETPAShSP; 


SETSRLOCSP:  PROCEDURE ( A ) ; 

DECLARE  A ADDRESS; 

SRLCC(SP)  = a; 

RE  TURN  ; 

END  SETSRLCCSP; 

GENERATE:  o ^CC ECURE (0 BJCOOE ) ; 

/• 

-RITES  GENERATED  CODE  AND  COUNTS  SIZE 
OP  CCOt  AREA. 

»/ 

CECLARE  rajCCOE  3YTE;  . 

CCDESIZE  * CCCESIZE  + 1; 

IF  NOT  RASSl  THEN 

CALL  EPITIOBJCODE) ; 

RETURN; 

END  GENERATE; 

CALCSVARC:  PRGCEOUREIB)  ADDRESS; 

DECLARE  3 BYTE; 

RETLPN  VARiai  ♦ .VARC; 

END  CALCSVARC; 


SETLCOKLF:  FFCC E CUR E I A ) ; 
DECLARE  A BYTE: 

PRINTNAME  = C ALCSV ARC ( A I ; 
SYVHASH  = HASH! A) ; 

RETURN  ; 

END  SETLCOKUP; 


LCQKUPiCNLY:  PROCEOUREIAI  BYTE; 
DECLARE  A BYTE: 

call  seti.ookupiai  : 

IF  LOCKUP  THEN 

R£TI;RN  TRUE; 

RETURN  FALSE; 

END  LCOKLPlCNLY ; 


1 

! 


I 


^1657 

0165a 

0165«J 

C1660 

01661 

01662 

01663 

01664 

01665 

01666 

01667 

01668 
01669 
C1670 

01671 

01672 

01673 

01674 

01675 

01676 
C1677 

01678 

01679 
Cl  680 

01681 

01682 
01683 
G1684 
01685 
01  686 
01637 
01688 
Oi  689 
C1690 

01691 

01692 

01693 

01694 

01695 
C1696 

01697 

01698 

01699 

01700 

01701 

01702 

01703 
01  704 

01705 

01706 

01707 

01708 

01709 
C1710 

01711 

01712 

01713 

01714 

01715 

01716 

01717 
C1718 

01719 

01720 

01721 

01722 
01  723 
01  724 

01725 

01726 
0172  7 
C1728 
01729 
Cl  730 

01731 

01732 

01733 

01734 

01735 

01736 

01737 
Cl  738 
Cl  739 
Cl  740 

01741 

01742 

01743 

01744 
01  745 

01746 

01747 
01743 
Cl  749 
01  750 

01751 

01752 
01  753 

_C1754 


3 

3 

3 

4 
4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 

4 

5 
5 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 
4 

4 

5 
5 
5 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 

4 

5 
5 
4 
4 
3 
3 

3 

4 
4 


NCRHALtLCCKUP:  PROCEOURE(A)  BYTE; 
OECLAPt  A BYTE; 

IF  LUuKUPUJfJLY(A)  THEN 
RE i URN  TRUE; 

CALL  enter: 

RETURN  FALSE; 

ENO  NORRALILCOKUP; 


ccuntprt:  ppcceoure  address; 

/*  counts  TFE  size  Or  the  PRT  ♦/ 
return  (prtct  :=  prtct  + i>; 

ENO  CQUMPRT; 


CENTWC;  PRCCEDUREl A) : 

/*  WRITES  TWO  DYTlS  of  OBJECT  CODE  ON  DISK  FOR  LITERALS  ♦/ 
DECLARE  A ADDRESS; 

CALL  GENERATE  (HiuTUA  ) I ; 

CALL  GENERATElLC'rtU)  1 ; 

RETURN  : 

ENO  GENTwO: 


LITERAL:  PRCCEDUREl A) : 
DECLARE  A ADDRESS; 

call  gentuoia  or  aooOM); 

RETURN; 

ENO  literal; 


LITLOAO:  PRCCEOIJRE  ( Al  ; 

DECLARE  A ADDRESS: 

CALL  GENTHGIA  OR  OCOOOH) ; 

return: 

END  LITLOAO; 


LINESNUNBER:  PROCEDURE; 

IF  0E8UGLN  THEN 

cc: 

CALL  LITERALILINENO) ; 
CALL  GENERATEIBOL ) ; 

END; 

return: 

ENO  linesnurber; 


SETIFNAPE:  FRCCEOURE; 

PRIMTNAHE  = .IFLABLNG; 

SYMFASH  = IFLABLE  AND  HASHMASK; 

return; 

ENO  SETIFNARE; 


ENTcRSCCMPI LERSLABEL:  PRCCEDUREl 8) i 
DECLARE  8 BYTE; 

IF  PASSl  THEN 
CO; 

CALL  SETIFNAME; 

CALL  ENTER; 

CALL  SETAODRICOOESIZe  + B) 


end; 


return; 

ENO  enterjcompilerslabel: 


SETSCQMPILER3LA3EL:  PROCEDURE; 
DECLARE  X BYTE; 

IFLABLE  = IFLABLE  + 1; 
CALL  SETIFNAME; 

X = LCCKUP; 

return; 

ENO  ScTSCCMPlLERJLABEL; 


CCMPILERILABEL  : PROCEDURE; 

call  setscompilesslabel; 

CALL  CENiTWO (GETAODR) : 

return; 

END  COMP  ilerilabel; 


CHKTYPl:  PROCEDURE  BYTt:  /»  CHECK  MP.SP  BOTH  FLOATING  PT  ♦/ 
IFKSTYPEMP  <>  FLOATPT)  OR  (STYPESP  <>  FLOATPTI)  THEN 
CO; 

CALL  ERROR! 'MF*  » : 

RETURN  FALSE; 


ENO; 

RETURN  TRUE: 
FNO  CHKTYPl; 


CHKTYP2:  PROCEDURE  BYTE:  /•»  CHECK  MP.SP  BOTH  SAME  TYPE  •/ 
IF  STYPESP  O STYPEMP  THEN 
CO; 


i 


j 
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01755 

4 

CALL  eRROR( *MM' 1 1 

01  756 

5 

RETURN  FALSE; 

01757 

5 

ENO; 

C1758 

4 

RETURN  TRUE; 

C1759 

4 

END  CHKTYP2 ; 

C1760 

3 

01761 

3 

01762 

3 

CHKTYP3:  PROCEDURE  BYTE; 

01763 

4 

CALL  setstypempistypes?) ; 

01764 

4 

IF  STYPESP  = FLUATPT  THEN 

01  765 

4 

RETURN  TRUE; 

Cl  766 

4 

CALL  ERPORC  MF*  ) ; 

01767 

4 

RETURN  FALSE; 

Cl  768 

4 

ENO  CHKTYP3; 

Cl  769 

3 

C1770 

3 

CFKTYP4:  PROCEDURE; 

01771 

4 

IF  STYPEMPl  = STRING  THEN 

01772 

4 

CALL  ERROR! • HF • ) ; 

01773 

4 

CALL  SETTYPEPPITYPE.MP  :=  TYPEMP  ♦ 

C1774 

4 

CALL  GEN£«ATE(RON> ; 

01  775 

4 

RE  TLRN  ; 

01776 

4 

ENO  CHKTYP4; 

01777 

3 

C1778 

3 

01779 

3 

SUeCALC;  PRCCEOURE; 

C1780 

4 

CALL  SETSUBTYPEITYPESPI  ; 

01781 

4 

CALL  GENERATEIROW) ; 

01782 

4 

call  C-ENERATEd/PESP  ) ; 

01783 

4 

CALL  GENERATE(STO) ; 

01764 

4 

RE  TURN; 

Cl  735 

4 

ENO  SUeCALC; 

01786 

3 

01787 

3 

01788 

3 

GENSSTORE:  PROCEDURE; 

01789 

4 

IF  STYPEPPl  = FLOATPT  THEN 

01790 

4 

CALL  GENERATEISTO)  ; 

01791 

4 

ELSE 

01792 

4 

CALL  GENERATE(STS) ; 

01793 

4 

return; 

01  794 

4 

ENO  gensstore; 

01795 

3 

01796 

3 

01797 

3 

SETUPJINPUT;  PROCEDURE; 

01798 

4 

CALL  GEN'ERATE(CBF)  ; 

01799 

4 

INPUTSTMT  = TRUE; 

C1800 

4 

CALL  CENERATE(RCN) ; 

01801 

4 

ENO  SETLPSINPUT; 

01802 

3 

01803 

3 

01804 

3 

GETSFIELC:  PROCEDURE; 

01805 

4 

01806 

4 

GENSREAO:  PRCC EDURE ( I i J ) : 

01807 

5 

DECLARE  (I,J)  6YTE; 

01808 

5 

IF  STYPESP  = STRING  THEN 

C1809 

5 

DO; 

01810 

5 

CALL  GENERATc(I)  ; 

01311 

6 

CALL  GENERA TE(STS) ; 

01812 

6 

END; 

01813 

5 

ELSE 

01814 

5 

oq; 

C1815 

5 

CALL  GENERATEIJ); 

01816 

6 

call  genera TE(sro) ; 

01817 

6 

END; 

C1818 

5 

RETURN; 

C1819 

5 

END  GENSREAD; 

Cl  82  0 

4 

01821 

4 

IF  ( TYPESP  =■  SIMVAR)  THEN 

01822 

4 

CALL  LI TERALi SYMLOCSP ) ; 

01823 

4 

IF  INPUTSTMT  THEN 

01824 

4 

CALL  GENSREAOlRcS.ROV) ; 

01825 

4 

ELSE 

C1826 

4 

IF  FILE  10  THEN 

01827 

4 

CALL  G£M$RcAO(RDS,RON) ; 

01828 

4 

ELSE 

0182  9 

4 

CALL  GEN$REAO(ORS,DRF)  ; 

C1830 

4 

return; 

01831 

4 

ENO  GET$FIELO; 

01332 

3 

01S33 

3 

01834 

3 

GENSCN:  PROCEDURE; 

01835 

4 

CALL  CENERATE(RCN) ; 

01836 

4 

CALL  LITERAL (DNSTACKIONSTACK  :=  CN 

01837 

4 

CALL  GENERAT  E(CKO) ; 

C1838 

4 

CALL  GENERATEIBFN) ; 

C1839 

4 

RE  TURN  ; 

01840 

4 

ENO  GENJCN; 

01841 

3 

01842 

3 

01843 

3 

GENtON»2:  PROCEDURE; 

01844 

4 

DNSTACKIONSTACK)  = TYPESP; 

01845 

4 

RETURN: 

01846 

4 

ENO  GENSCN12; 

01  847 

3 

01848 

3 

01849 

3 

GENNEKT:  PRCCEOURE; 

C1850 

4 

IFIFORCCUNT  :=  FORCOUNT  - 1)  = 255 

01851 

4 

DC: 

01852 

4 

FORCOUNT  = 0; 

_J1853 

5 

CALL  ERROR! * NU ' 1 ! 

TACK  ♦ n ) ; 


THFN 
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01854 

01855 

01856 
01357 
01  858 
C1359 
C1860 
01861 
01862 

01863 

01864 
C1865 
01  866 

01867 

01868 
01869 
C1870 

01871 

01872 

01873 

01874 
Cl  375 
C1876 

01877 

01878 
C1879 
C1880 
01  281 
01882 
01833 

01384 

01385 
01836 
01  887 
01833 
C1889 

01890 

01891 
01  892 

01893 

01894 

01895 
C1896 

01897 

01898 
Cl  899 
C1900 
Cl  901 

01902 

01903 

01904 

01905 

01906 

01907 

01908 

01909 
C1910 

01911 

01912 

01913 
01514 

01915 

01916 

01917 

01918 
C1919 
C1920 

01921 

01922 

01923 

01924 

01925 

01926 

01927 

01928 

01929 
C1930 

01931 

01932 

01933 

01934 

01935 
Cl  936 
01937 
C1938 
C1939 
C1940 

01941 

01942 

01943 

01944 

01945 

01946 
0194/ 
01948 
Cl  949 
C1950 

_01951 


5 

4 

4 

4 

5 
5 
5 

5 

6 
5 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 
4 
3 
3 

3 

4 
4 

4 

5 
5 
4 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 
4 
4 
3 
3 

3 

4 
4 
4 

4 

5 
5 
4 
4 

4 

5 
5 
4 
4 
4 
4 

4 

5 
5 
4 
3 
3 

3 

4 
4 
4 
4 
4 
4 

4 

5 

6 
5 
5 
5 
5 

5 

6 
6 
5 
4 
3 
3 

3 

4 
4 
4 


ELSE 


ENOS 

oc: 


END; 
RETURNS 
ENO  OEfiNEXTS 


CALL  GFMSRATcOaSJ  : 

CALL  GENJTWOINEXT  •,00RESS(2  ) » 5 
NEXT400PESS  = CUOES12E  OR  8000HS 
DO  WHILE  NEXTBYTEllI  > 127; 

NEXTSTMTPTR  = NEXTSTMTPTR  ♦ 8S 
END; 


GEN$NEX7iWITHtI0ENT  : PP.OCEOURE; 

IF  LOOKUPtONLY (MPPl)  AND  (BASE 
CALL  GEMMEXT; 

ELSE 


CALL  ERRCRCNI  • ) S 
RP  TURN: 

ENO  GENJNcXTSnITHSIOENT; 


NEXTADORESSI 3) > THEN 


CPcCKiULfERRCR:  PROCEDURES 
IF  ULERRORFlAG  then 

CALL  ERRijRI’UL*  ) S 
ULEFRCRFLAG  = FALSE; 
ENC  CriECKSULJERROR; 


FIN0LA6EL:  FPOCEOUficS 

IF  NGRPALSUDGRUPISP)  THEN 
DC; 

IF  PASS2  AND  (MOT  GETRES)  THEN 
ULERRORFLAG  = TRUES 

END; 

RETURN; 

END  FINCLABEL; 


RESOL VEfLASEL:  PROCEDURE; 
CALL  FINDLA8EL; 

IF  G0SL6STMT  THEN 

CALL  GENERATE(PRO)  ; 

ELSE 

CALL  GENERATE (8RS)  ; 
CALL  GENSTWOIGETADOR)  ; 

return: 

ENO  RESCLVE$LA8EL; 


PROCESS$SI«FLE$VARI ABLE:  PROC EDURE (LOC  ) ; 
DECLARE  LOC  BYTE; 

IF  NCRPALLOCRUPtLOC)  THEN 

IF  GETYPE  <>  SIMVAS  THEN 
CALL  ERROR  ( • lU*  ) *, 


CAUL  SETADOR(COUNTPRT)  ; 
CALL  SETYPE ( SIMVAR)  ; 

EM  0 ; 

CALL  SETSYMLCCSPICETADDR) ; 

CALL  SETTYPESPISIMVARI  ; 

IF  FORSTMT  THEN 

oc; 

FORSTMT  = false; 
FORAODRESSO)  = BASE; 

END; 


ELSE 


DO; 

ENO  ; 
DC; 


ENO  PR0CESSiSIHPLESVARlA8LE; 


GENSILS:  PPCCEDURE(WHERE) : 

DECLARE  STRPTR  byte, 

WHERE  ADDRESS, 

str  ingtospool  based  where  byte; 

CALL  SETSTYPESP (STRINGI  : 

CALL  GENErATEl I LS)  ; 

DC  FOREVER : 

CC  STRPTR  = I TO  STRINGTOSPOCL  ; 

CALL  GENcPATEI STRINGTOSPOOL  I STRPTR ) ) S 
END: 

IF  CCNT  THEN 

call  scanner; 

ELSE 

00; 

call  generate (0) ; 
return: 

end; 

ENC;  /*  CF  oc  FOREVER  */ 

ENO  GENtlLS; 


GENCCN:  fpcceoure: 

DECLARE  I 3YTE; 

CALL  GENERATH(CQM) ; 
CALL  SETTYPESP(CONST)  ; 
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01952 

01953 
0195-'* 

01955 

01956 

01957 

01958 
C1959 
Cl  960 

01961 

01962 

01963 

01969 

01965 

01966 

01967 

01968 
C1969 

01970 

01971 

01972 

01973 
01979 

01975 

01976 

01977 

01978 
C1979 
C1980 
01981 
01962 
01983 
01989 
C1985 
C1S86 

01987 

01988 
C1989 
C1990 

01991 

01992 

01993 
01999 

01995 

01996 

01997 
Cl  99  8 
C1999 
C2C00 
02  0U1 
02  002 
02C03 
02009 
02005 
02  006 

02007 

02008 
02009 
C2010 
02011 
32012 
02013 
02019 

02015 

02016 
02017 
C2018 

02019 

02020 
02021 
02022 
02  023 

02029 
02025 
02  026 
Q2C27 
02028 
C2029 

02030 

02031 

02032 

02033 
02  039 

02035 

02036 

02037 
02C38 
02039 
C2  090 

02091 

02092 
02  093 
02099 
02095 
02C96 
02C97 
02  098 

_C2C99 


9 

9 

9 

9 

9 

9 

5 

6 
5 
5 
5 
9 
9 
3 
3 
3 
9 
9 
9 
5 
5 
5 
5 
9 
9 
9 
9 
5 
5 
9 
9 
9 
9 
3 
3 
3 
9 
9 
9 
5 
5 
5 
5 
5 
9 
9 
3 
3 
3 
9 
9 
9 
5 
5 
5 
5 
5 
9 
9 
9 
9 
9 
9 
3 
3 
3 
9 
9 
9 
5 
5 
5 
5 
5 
5 
9 
9 
9 
9 
9 
9 
9 
9 
9 
3 
3 
3 
9 
9 
9 
5 
5 
5 
5 
5 
5 
9 
9 


CALL  SETSTYPESPIFLOATPTI  ; 

IF  LCCXUPIONLY  (SP)  ANO  (G6TYPE  = CONST)  THEN 
CALL  G£N$Tr<C<G£TAOO«J  ; 

ELSE 

oc: 

00  1 = 1 TO  ACCUN: 

CALL  EM  ITCOMl ACCUM<  I) ) ; 

ENO: 

CALL  EMITCONC  $•  ) : 

call  GEN»TW0(FDACT  :=  FDACT  ♦ 1); 

END; 

RE  TORN; 

ENO  genccn; 


PUTIFIELC;  PROCEDURE; 

IF  FILEIO  THEN 
DC; 

IF  STYPESP  = FLOATPT  THEN 
CALL  GENERATe(WRN) ; 

ELSE 

CALL  GENERATECWRS) ; 

END; 

ELSE 

IF  STYPESP  = FLOATPT  THEN 
00; 

IF  TYPESP  <>  79  THEN  /*  IS 
CALL  GENERATE (WRV) ; 

END; 

ELSE 

CALL  GENERATE(WST) ; 

RETURN; 

ENO  PUTiFIELD; 


IT  A TAB  */ 


GENSPARM:  PROCEDURE; 

IF  TYPEMP  = UNFUNC  THEN 

oc; 

8ASE  = SYMLOCMP; 

CALL  NEXTENTRY: 

CALL  SETSYMLCCMP(SASE)  ; 

CALL  SETHASHMPfHASHMP  ;=  HASHMP  - 1); 
CALL  LITERAL (GETAODR ) ; 

ENO; 

RETURN; 

ENO  GENSPARP; 


CHECKPARP:  FRCCEOURE; 

IF  TYPEPP  = UNFUMC  THEN 
CC; 

BASE  = SYMLOCMP; 

IF (GETSU6TYPE  <>  STYPEMPl)  THEN 
CALL  ERROR! 'FP* ) ; 

CALL  GcNSSrORE; 
return; 

ENO; 

IFIPASFPP  XOR  (STYPEMPl  <>  FLOATPT))  THEN 
CALL  ERROR! 'FP* ) : 
call  SEThASrtMP(SHR(HASHMP, 1) ) ; 

CALL  SETSTYP£MP!STYPEMP  :=  STYPEMP  -1); 
RETURN; 

ENO  checxparm; 


FUNCGEN:  PRCCEOURE; 

IF  TYPEPP  = UNFUNC  THEN 

oc; 

IF  HASHMo  <>  0 THEN 

CALL  ERROR! 'FN' ) 
CALL  G£N£RATc(PRO) ; 
BASE  = SRLOCSP; 

CALL  GENSTWOIGETAOOR) 
RE  turn; 

end; 

IFKSTYPEMP  ANO  03H)  <>0)  THEN 
CALL  ERROR! 'FN* ) ; 

CALL  GENERATE (TYPEMP ) ; 

IF  R0L!STYPEMo,2)  THEN 

CALL  SETSTYPEMP(STRIMG)  ; 

ELSE 


CALL  SETSTYPEMPIFLOATPT) ; 
RETURN; 

ENO  FUNCGEN; 


ENTEfitPAFM:  PFCCECURE: 

IF  PASSl  THEN 
DC; 

CALL  SETLOOKUP(MPPI) ; 

CALL  enter; 

CALL  SETAODR(COUNIPRT)  ; 

CALL  SETSOBTYPE! STYPEMPl ) ; 
call  SETYPc!  SI«VAR)  ; 

CALL  SETTYPEMP!TYPEMP  ♦ 1); 

end; 

RETURN  ; 

ENO  ENTtfiiPARM; 
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y 


C205Q  3 

020^1  3 

02052  3 

02053  3 

0205^  3 

02055  3 

02056  3 

02  05  7 3 

C2CS8  3 
02C59  3 

02060  3 

02061  3 

02062  6 

02063  4 

02C66  6 

02065  3 

02066  3 

02067  3 

02068  4 

02C69  4 

02070  4 

02071  4 

02C72  4 

02073  5 

02074  5 


*«*««4i«**«»*  *«»«**««***««»»*»*«««*«*»* **«««* «■»««•««****** 
* 

* ExeCUTICN  OF  SYNTHESIS  BEGINS  HERE 

« 

♦/ 

IF  LISTPROD  ANO  PASS2  THEN 

DO;  /♦  IF  USTPRCO  SET  PRINT  OUT  PRODUCTIONS  */ 

CALL  PSIi\*T(.’  PPOO  $•  ) ; 

CALL  PRINTOEC(PRODUCTION) ; 

CALL  CRLF; 

end: 

call  copy:  /*  SETUP  FOR  ACCESSING  PARSE  TABLES  *! 

CC  CASE  FPOCUCTION;  /*  CALL  TO  SYNTHESIS  HANDLES  ONE  PROO  */ 
/*  CASE  0 ACT  USED  ♦/  ; 

1 <PF0GRAM>  ::=  <liNE  NUMBERP  <STATEMENT> 

2 <LINE  NUNBERP  ::=  <NUHBERP 
DO; 

IF  LOOKUFtGNLYI SPI  THEN 
00; 

IF  GETRSS  THEN 


0207  5 

6 

00; 

02076 

6 

IF  CODESUE  <P  GETAOOR  THEN 

02  07  7 

7 

CALL  ERROR! 'OL ' ) ; 

02C78 

7 

ENO; 

G2079 

6 

ELSE 

C2C80 

6 

00; 

02C81 

6 

CALL  SETAOOR (C00ESI2EI ; 

0206  2 

7 

CALL  SETYPE(LABLE); 

02  033 

7 

ENO; 

C2C84 

6 

END; 

0^085 

5 

ELSE 

02086 

5 

SEPARATOR  = ASTRICK; 

02087 

5 

CALL  LlNEiNUMBER; 

02088 

5 

END 

» 

02  089 

4 

/* 

3 

♦ / 

02090 

4 

CALL  L INEtNUMBER; 

02091 

4 

f* 

4 

<STATcMENTP  <STAT£MENT  LISTP 

*/ 

02092 

4 

CALL  CFECKSULiERROR ; 

02093 

4 

/* 

5 

<IF  STATEMENTP 

*/ 

02  094 

4 

# 

02  09  5 

4 

/» 

6 

<ENO  STATEMENTP 

*/ 

02096 

4 

t 

02097 

4 

/* 

7 

<OIMcNSION  STATEMENTP 

*/ 

02098 

4 

f 

02099 

4 

/* 

a_ 

<OEFINE  STATEMENTP 

*/ 

C2100 

4 

02101 

4 

/* 

9 

<STAT£MENT  LISTP  : : = <SIMPLE  STATEMENTP 

•/ 

02102 

4 

t 

02103 

4 

/* 

10 

<STATEMENT  LISTP  : 

*/ 

02104 

4 

/* 

10 

<SIMPL£  STATEMENTP 

*/ 

02105 

4 

t 

02106 

4 

/• 

11 

<SIMPL£  STATEMENTP  : :=  <LET  STATEMENTP 

*/ 

02  107 

4 

f 

02108 

4 

/♦ 

12 

<ASSIGNM£NT> 

*( 

02  109 

4 

02110 

4 

/* 

13 

<FOR  STATEMENTP 

*/ 

02111 

4 

f 

02112 

4 

/» 

14 

<NEXT  STATEMENTP 

*/ 

02113 

4 

02114 

4 

/• 

15 

’ <FIlE  STATEMENTP 

*/ 

02115 

4 

02116 

4 

/* 

16 

’ <CL0SE  STATEMENTP 

♦ / 

02117 

4 

02118 

4 

/* 

18 

<PRINT  STATEMENTP 

♦ / 

02119 

4 

/* 

17 

<REAO  STATEMENTP 

• / 

02  120 

4 

• 

02121 

4 

• 

02  122 

4 

/* 

19 

<GOTO  STATEMENTP 

*/ 

02  123 

4 

02  124 

4 

/• 

20 

<G0SU3  STATEMENTP 

*/ 

02  125 

4 

t 

02  126 

4 

/* 

21 

<1NPUT  STATEMENTP 

*/ 

02  127 

4 

9 

02128 

4 

/* 

22 

<STOP  STATEMENTP 

*/ 

C2  129 

4 

9 

02  130 

4 

/* 

23 

<RETORN  STATEMENTP 

»/ 

02  131 

4 

02132 

4 

/• 

24 

<0N  STATEMENTP 

♦ 7 

02  133 

4 

2I 

02134 

4 

/• 

<SESTCRE  STATEMENTP 

*/ 

02  135 

4 

9 

02136 

4 

/♦ 

26 

<RAN00M12E  STATEMENTP 

»/ 

32  137 

4 

27 

02138 

4 

/♦ 

<OUT  STATEMENTP 

• / 

C2  139 

4 

• 

C2  140 

4 

/• 

23 

•/ 

02  141 

4 

• 

02142 

4 

/• 

29 

<LET  STATEMENTP  LET  <ASSIGNM£NTP 

»/ 

02  143 

4 

• 

02144 

4 

/• 

30 

<ASSIGNMENrP  ;!’  <4SS1GN  HEAOP  <EXPRESSIQNP 

• / 

02145 

4 

IF 

ChKTYP2  Then 

32  146 

4 

call  GENtSrORE; 

J)2147 

4 

/• 

31 

<ASSIUN  HEAOP  <VARIABLEP  » 

•/ 
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r 


02148 

4 

IF 

TYPEMP  = SIMVAR  THEN 

02149 

4 

CALL  LITSKAUSYMLOC.YP)  ; 

02150 

4 

/♦ 

32 

_<EXPRESSiaN>  ::=  <LOGICAL  FACTOR> 

♦/ 

02151 

4 

t 

02152 

4 

/* 

33 

<EX?RESSION>  <0R>  <LOGICAL  FACTOR> 

•/ 

02153 

4 

I 

F CHK7YP1  THEN 

02  154 

4 

CALL  CENEiUTE(TYPEMPl) ; 

02  155 

4 

/* 

34 

<GR>  : :=  OR 

*/ 

02156 

4 

CALL  SETTYPESP(BOR) ; 

02157 

4 

/* 

35 

XOR 

♦/ 

02158 

4 

CALL  SETTYPcSPlEXR) ; 

02159 

4 

/• 

36 

<LCGICA,L  FACTOR>  <LOGICAL  SECCNOARY> 

*/ 

C2160 

4 

» 

02161 

4 

/• 

37 

<LOGICAL  FACTGR>  AMO 

*/ 

02162 

4 

/♦ 

37 

<LOGICAL  SECONOARY> 

*/ 

02163 

4 

IF 

CHKTYPl  THEN 

02164 

4 

CALL  GENERATE  I ANDO) ; 

02165 

4 

/♦ 

33 

<LCGICAL  SECONOARY>  ::=  <LOGICAL  PRIMARY> 

*/ 

02166 

4 

• 

02  167 

4 

/♦ 

39 

NOT  <LOGICAL  PRIMARY> 

*/ 

02168 

4 

IF 

CHKTYP3  then 

C2  169 

4 

CALL  GENERATE INOTO) ; 

02170 

4 

/* 

40 

_<LCGICAL  PRIMARY>  ::=  <ARITHMETIC  EXPR£SSI0N> 

*/ 

02171 

4 

• 

02172 

4 

/* 

41 

<ARITHMETIC  EXPRESSION) 

♦/ 

02173 

4 

/* 

41 

<REL ATION> 

♦ / 

021/4 

4 

41 

<ARITHMETIC  EXPRESSION) 

*/ 

02175 

4 

IF 

CHKTYP2  THEN 

02176 

4 

DC; 

02177 

4 

IF  STYPESP  = FLGATPT  THEN 

02  178 

5 

CALL  GENERATEITYPEMPl) ; 

02179 

5 

ELSE 

02  180 

5 

00;  , 

02181 

5 

CALL  GENERATEITYPEMPl  ♦ 16); 

0218  2 

6 

call  SETSTYPEMP(FLCATPT) ; 

02183 

6 

END; 

02  184 

5 

END;  - 

02185 

4 

/♦ 

42 

^ARITHMETIC  EXPRESSION)  ::=  <TERM) 

*/ 

02186 

4 

• 

02187 

4 

/♦ 

43 

<ARIThMETIC  EXPRESSION) 

*/ 

02188 

4 

/* 

43 

<TERM) 

♦/ 

02  189 

4 

IF 

CHKTYP2  THEN 

C2190 

4 

DC; 

02191 

4 

IF  STYPESP  = FLOATPT  THEN 

02  192 

5 

CALL  GENERATE  IFAD) ; 

02193 

5 

ELSE 

02  194 

5 

CALL  GENERATE(CAT) ; 

02  19  5 

5 

END; 

02196 

4 

/* 

44 

<ARlThM£TIC  EXPRESSION)  - 

•/ 

02197 

4 

/* 

44 

<TERH) 

«/ 

02198 

4 

IF 

CHKTYPl  THEN 

C2  199 

4 

CALL  GENERATE (FMI ) ; ‘ ' 

C2200 

4 

/* 

45 

+ <TEPM) 

*/ 

02201 

4 

IF 

CHKTYP3  THEN  ; /*  NO  ACTION  REQUIRED  ♦/ 

02202 

4 

/* 

46 

- <TERM> 

•/ 

02203 

4 

IF 

CHK7YP3  THEN 

02204 

4 

CALL  GENERATE (NEG) ; 

02205 

4 

/* 

47 

<TERM)  : :=  <PRIMARY> 

02206 

4 

» 

0220  7 

4 

/* 

48 

<TERM)  * <PRIMARY) 

*/ 

02208 

4 

IF 

CHKTYPl  THEN 

02209 

4 

CALL  GENERATEIFMU) ; 

02210 

4 

/* 

49 

<TcRM)  / <PRIHARY) 

*/ 

02211 

4 

IF 

CHKTYPl  THEN 

02212 

4 

CALL  GENERATEIFOI I ; 

02213 

4 

/* 

50 

_<PRIMARY)  <ELEM£NT) 

*/ 

02214 

4 

t 

02215 

4 

/* 

51 

<PRIHARY>  **  <EL£MENT) 

*/ 

02216 

4 

IF 

CHKTYPl  then 

02217 

4 

call  ge nerate (EXP) ; 

02218 

4 

/* 

52 

<ELEMENT>  <YARIA8LE) 

•>/ 

02219 

4 

IF 

TYPESP  = SIMVAR  THEN 

CALL  LITLOAO(SYMLQCSP) ; 

02  220 

4 

02  221 

4 

ELSE 

02222 

4 

CALL  GENERATE (LOO) ; 

02223 

4 

/♦ 

53 

<CONSTANT) 

♦ / 

02224 

4 

t 

02  22  5 

4 

/* 

54 

<FUNCTION  CALL) 

02226 

4 

f 

02227 

4 

/* 

55 

1 <EXPRESSION)  ) 

■»/ 

02228 

4 

CALL  SETSTYPEMPISTYPEMPl ) ; 

02229 

4 

/* 

56 

<VARIA8LE)  ::=  <IOENTIFIER) 

*/ 

C2230 

4 

CALL  PPCCESi $S IMPLESVAR 1A3LE (S? ) ; 

02231 

4 

/♦ 

57 

<SU8SCRIPT  HEAC)  <EXPRESS!ON)  ) 

*/ 

02232 

4 

00 

» 

02233 

4 

IF  FORSTHT  THEN 

02234 

5 

CALL  ERRORl  *FI  ')  *, 

02  235 

5 

CALL  CHKTYP4; 

02236 

5 

BASE  = symlocmp; 

02237 

5 

IF  GETSU3TYPE  <)  TYPEMP  THEN 

02  238 

5 

call  ERRORl *SN' ) ; 

C2239 

5 

CALL  LI TlOAO(GETAOOR) ; 

C2240 

5 

CALL  GcNERArSISUQO) ; 

02241 

5 

CALL  SETTYPEMPISUBVAR) ; 

02242 

5 

END; 

02243 

4 

/• 

58 

<SUBSCRIPT  HEAD)  <IDENTIFIER)  1 

*/ 

02244 

4 

00 

02245 

4 

IFdNOT  LOOKUPSONUYIMP)  ) OR  (GETYPE  <)  SU8VAR))  THEN 

_J2246 

5 

CALL  ERROR!  MS'): 
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( 


02247 

5 

«,AU  SeTTYPcMP(0»; 
caul  SCTSYML(^P18ASE)  ; 
€N0:  ^ 

C2248 

5 

C2249 

5 

C2250 

4 

/♦ 

59  <SUBSC8IPT  HEAO  <£XPSESSI0N>  , 

*/ 

02251 

4 

CALL  C6KTYP4; 

02252 

4 

/* 

60  <FUNCTI0N  CALL>  <FUNCT  ION  HEADING> 

<£ XPRESSION>  ) 

♦ / 

02253 

4 

00; 

02254 

4 

CALL  ChECKPARM; 

02  255 

5 

SPLCCSP  * SRLOLMP; 

02256 

5 

CALL  FUNCGcN; 

02257 

5 

ENO; 

02258 

4 

/♦ 

61  <FUNCTION  NAME> 

•/ 

C2259 

4 

CALL  FUNCGEN; 

C2260 

4 

/* 

62  <FLNCTI0N  H£AD1MG>  <FUNCTION  NAME> 

( 

•/ 

02261 

4 

CALL  GENiPAkM; 

02262 

4 

/* 

63  <FUNCTION  FEAOINO  <EXPRESSION> 

♦/ 

02263 

4 

/* 

63  , 

• / 

02264 

4 

00: 

02265 

4 

CALL  checksparm; 

02266 

5 

CALL  3EN»?ARM; 

02267 

5 

END: 

02268 

4 

/* 

64  <FLNCTI0N  NAM£>  ::=  <US£R0EF  INEO  NAME> 

*/ 

02269 

4 

IF  LCCKUPSONLYISP)  THEN 

C2270 

4 

OC; 

02271 

4 

CALL  SETSRLOCSP(SASE) : 

02272 

5 

CALL  SeTSYNLCCSP(BASE)  : 

02273 

5 

CALL  SETTYPb iPIUNFUNC) : 

02274 

5 

CALL  SETHASHSP(GETYPE)  : 

02  27  5 

5 

END: 

02276 

4 

ELSE 

02277 

4 

CALL  ERRCRI 'FU' ) : 

02278 

4 

/* 

65  <PRE0EFINE0  NAME> 

*/ 

C2279 

4 

00; 

C2230 

4 

CALL  SETTYPESPIFUNCOPI; 

02  281 

5 

CALL  SETHASHSP<SHR<STYPESP,2»  AND  07H» 

• 

02282 

5 

ENO; 

02283 

4 

/* 

66  <CCNSTANT>  ::=  <NUM3ER> 

*/ 

02284 

4 

CALL  GENCON; 

02285 

4 

/* 

67  <STRING> 

♦ / 

02286 

4 

CALL  GENSILS {. ACCOM ) ; 

02287 

4 

/* 

63  <RELATION>  = 

*/ 

02288 

4 

CALL  SETTYPESP17) ; 

02289 

4 

/♦ 

69  > = 

*/ 

C2290 

4 

CALL  SETTYPEMP(9I ; 

02291 

4 

/» 

70  GE 

*/ 

02292 

4 

CALL  SETTYPEMP  19) ; 

02293 

4 

/* 

71  < = 

*/ 

02294 

4 

CALL  SETTYPEMPllO) ; 

02295 

4 

/■» 

72  LE 

♦ / 

02296 

4 

CALL  SETTYPEMP! 10) : 

02297 

4 

/* 

73  > 

*/ 

02298 

4 

CALL  SETTYPESP16) ; 

02299 

4 

/* 

74  < 

*/ 

C2300 

4 

CALL  SETTYPESP15) ; 

02301 

4 

75  <r  > 

»/ 

02302 

4 

CALL  SETTYPEMP  18)  ; 

02303 

4 

/* 

76  N6 

♦ / 

02304 

4 

CALL  SETTYPEMP (8) : 

C230  5 

4 

/* 

77  <FCR  STATEHENT>  <FOR  HEAO>  TO  <EXPR£SSI0N> 

• / 

02306 

4 

/• 

77  <STEP  CLAUSE> 

♦/ 

02307 

4 

00; 

02308 

4 

BASE  = FORAOOP.eSS  (3  1 ; 

C2309 

5 

IF  TYPESP  THEM 

C2310 

5 

CALL  GENERATEIOUP)  ; 

02311 

5 

CALL  LITLOAO(GETADOR) ; 

02312 

5 

CALL  GENERATE (FAD)  ; 

02313 

5 

IF  TYPESP  THEN 

02314 

5 

00; 

02315 

5 

call  L 1 TERAL(GETADDR) ; 

02316 

6 

CALL  GcNERATElXCH) : 

02317 

6 

ENO; 

02318 

5 

CALL  GE  NERAT:-  (STO)  ; 

C2319 

5 

IF  TYPESP  THEN 

C2320 

5 

00; 

02321 

5 

CALL  GENERATE(XCH) ; 

02  322 

6 

CAlL  U ITEkAL (0) ; 

02323 

6 

CALL  GENERATEILSS) ; 

02324 

6 

call  LITERALIB) i 

02325 

6 

call  generateibfc)  ; 

02326 

6 

call  generate iLEO) ; 

02327 

6 

call  LITERAL(2): 

02  32  8 

6 

CALL  GENERATEIBFN) : 

C2329 

6 

END; 

C2  330 

5 

call  generate IGEO) ; 

02  331 

5 

CALL  generate (3RC ) ; 

02332 

5 

CALL  GcNtTHOlFORAODRESS) ; 

02333 

5 

FCRADCRESSl 1)  = COOESIZE; 

C2334 

5 

ENO; 

02335 

4 

/» 

78  <FCR  HEAO  ::=  <FOR>  <ASSIGNMENT> 

*/ 

02336 

4 

00  ; 

C2337 

4 

call  GENEHATEiaRS)  ; 

02338 

5 

call  GENiTHOlFQRAOORESSll) ) ; 

C2339 

5 

FCRADCRESS12)  = COOESIZE; 

C2340 

5 

END; 

02341 

4 

/• 

79  <FCR  > ; : * FOR 

• / 

02  342 

4 

00; 

02343 

4 

FCPSTMT  = TRUE; 

SBTBLTOP.NEXTSTMfPTR  » SBTOLTO?  - 8; 

_02344 

5 

i 

i 

,1 

i 
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023<V5 

5 

NEXTBYTEdl  - NtXIBYIEU)  ANO  7FH; 

02346 

5 

CALL  LI!M  rs(  JJ; 

02347 

5 

FCKCOUNT  =«  HGWCJUNT  ♦ 1; 

02  348 

5 

6NC; 

02349 

4 

t* 

30 

<STEP  CLAUSE>  ::=>  3TEP  <EXPRESSIOfO 

*/ 

02350 

4 

CALL 

SETTYPEUPiTRUEl  ; 

02  351 

4 

/* 

81 

*/ 

02352 

4 

00 ; 

02353 

4 

BASE  = FORAOORESSJ 3)  ; 

02354 

5 

CALL  LITERAL(C-;TAOOR)  ; 

02355 

5 

CALL  ScTTt'PEiP(FALSc)  ; 

02356 

5 

CALL  GENESATEICONJ  ; 

02357 

5 

CALL  GENSTi<0(0»  ; 

02358 

5 

ENO  : 

02359 

4 

/* 

82 

<IF  STATEMENT>  ::=  <IF  GRO'JP> 

*/ 

C2360 

4 

CALL 

EMESSCCMPlLERtLASELCO)  ; 

02361 

4 

/* 

33 

<IF  ELSE  GROUP>  <STATEMENT  LIST> 

*/ 

02362 

4 

CALL 

ENTERSCO'^PILERiLABEUO  ) : 

02263 

4 

/» 

84 

IF  ENO  <tXPRESSION>  THEN  <NUM8ER> 

*/ 

02364 

4 

DO ; 

02365 

4 

CALL  GENESaTcIOEF) ; 

02  366 

5 

CALL  FINOLABEL; 

02367 

5 

CALL  GENST,<0(GcTA00a)  ; 

02  36  8 

5 

ENO; 

02369 

4 

/♦ 

85 

<IF  GROUP>  ;:=  <IF  H£AD>  <STATEMENT  LIST> 

*/ 

C2370 

4 

02271 

4 

/* 

86 

<IF  HcAO>  <NUM8ER> 

*/ 

02372 

4 

CALL 

RESCLVEiLABEL; 

02373 

4 

/* 

8/ 

<IF  ELSE  CRQUP>  <IF  HEAO>  <STATEMENT  LIST>  ELSE 

*! 

02  374 

4 

00; 

02375 

4 

CALL 

ENTEKlCCNPILERtLABELI  3)  ; 

02376 

5 

call  GcNERAiEISRS); 

0237  7 

5 

CALL  CG.''PIL£R$LABEL; 

02278 

5 

ENO; 

02379 

4 

!* 

83 

<IF  FEAD>  ::=  IF  <EXPRESSION>  THEN 

*/ 

C2380 

4 

00; 

02381 

4 

IF  STYPEMPl  = STRING  THEN 

02382 

5 

CALL  ERROR ( • I E* ) ; 

02333 

5 

CALL  GENERATE(BRC) ; 

02384 

5 

CALL  CCFPILERiLABcL; 

02335 

5 

ENO; 

02386 

4 

/* 

89 

<OEFINE  STATEMENT>  <U0  FUNCTION  NAME> 

*/ 

02387 

4 

/* 

89 

<DUMMY  ARG  LIST>  = <EXPRESSION> 

*/ 

02388 

4 

IF  CHKTYP2  THEN 

02389 

4 

oc; 

02390 

4 

BASE  = SYNLOCMP; 

02391 

5 

CALL  SETYPEI TYPEMPl) ; 

02392 

5 

CALL  UNLINK; 

02393 

5 

CALL  GENERATE(XCH) ; 

02  394 

5 

CALL  GENERATE (RTM) ; 

02395 

5 

CALL  ENTERtCGNPILERSLABELIO) ; 

02396 

5 

END; 

02397 

4 

t* 

90 

<UC  FUNCTION  NAME>  ::=  DEE  KUSEROEFINEO  NAH6> 

*/ 

02398 

4 

DO; 

02399 

4 

DECLARE  FLAG  BYTE; 

02  40  0 

5 

CALL  GENERATE (BRS ) ; 

02  401 

5 

CALL  CGMPILERSLABEL; 

02402 

5 

FLAG  = NORNALSLOOKUPISP)  ; 

02403 

5 

CALL  SETSTYPEMPISTYPESP)'; 

02404 

5 

CALL  SETSYMLOCMPIBASE) ; 

02405 

5 

IF  PASSl  THEN 

02  406 

5 

00; 

C2407 

5 

IF  FLAG  THEN 

02408 

6 

CALL  ERROR! 'FO' ) ; ’ 

02  409 

6 

CALL  SETAOORICOOESIZE) ; 

02410 

6 

END; 

0241 1 

5 

ELSE 

02412 

5 

CALL  RFLINK; 

02413 

5 

END; 

02414 

4 

f* 

91 

KDUHMY  ARG  LIST>  : :=  <DUMMY  ARG  HEAO>  <IDENTIFIER>  ) 

*/ 

02415 

4 

CALL 

entep.sparm; 

02416 

4 

/* 

92 

*/ 

02417 

4 

CALL 

SETTYPEM? (01  ; 

02418 

4 

/* 

93 

<CLHMY  ARG  HEAD>  : :=  I 

*/ 

02419 

4 

CALL 

SETTYPEMP(O) ; 

0242  0 

4 

t* 

94 

<OUMMY  ARG  H£AD>  <I0ENTIF1ER>  , 

♦ / 

02421 

4 

CALL 

ENTERtPARM; 

02422 

4 

95 

<FILE  STA7EM6NT>  ::=  <FILE  HEAO>  <FILE  OECLERATION> 

*/ 

02  42  3 

4 

02424 

4 

/* 

96  ] 

<fUE  H6A0>  ::=  FILE  ■ 

*/ 

02  42  5 

4 

02  426 

4 

/• 

97  ’ 

<FIL£  HEAO>  <FILE  OECLcRATION>  , 

♦ / 

02427 

4 

02428 

4 

/• 

98 

<FILE  OECLERATIQN>  ::=  <IOENTIFIER>  KFICE  REC  SIZE> 

•/ 

02429 

4 

00; 

J2430 

4 

CALL  PRCCESSSSIMPLESVARIABLEIMP) ; 

02431 

5 

IF  TYPESP  = FLOATPT  THEN 

02432 

5 

CALL  ERRORI • IF* ) ; 

02433 

5 

CALL  LITLOAO(SYNLOCSP) ; 

02434 

5 

CALL  generate (OPNI ; 

02  43  5 

5 

END; 

02436 

4 

/* 

99 

<FILE  REC  SIZE>  ::=  ( <EXPRESSION>  ) 

*/ 

02437 

4 

CALL 

CFKTYP4; 

02438 

4 

/• 

100 

•/ 

02439 

4 

CALL 

LITERALIOI: 

02440 

4 

/♦ 

101 

KDIMENSICN  STATEMENT>  ::=  DIM 

*/ 

02441 

4 

/* 

101 

<DINENSION  VARIABLE  LIST> 

*/ 

_02442 

4 

t 

L 
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1 


32 

4 

/* 

102  <0IMENS1GN  VARIABLE  LIST>  ::=  <0IMENSI0N  VARIABLE> 

♦ / 

02<i4<i 

4 

CALL  SL6CALC; 

4 

/* 

103 

*/ 

02-i46 

4 

/* 

103  <OIMENSION  VARIABLE  LIST> 

♦/ 

02A<i7 

4 

/* 

103  , <CIMENS10N  VARIABLE> 

*/ 

02448 

4 

CALL  SLECALC; 

02449 

4 

/* 

104  <CIMEr.SI0N  VARIABLE>  <DIM  VAR  HEA0>  <EXPRESSI0N>  ) 

♦ / 

C2450 

4 

00; 

02  451 

4 

CALL  CHKTYP4; 

024  52 

5 

BASE  = SYMLOCMP; 

02453 

5 

END; 

02454 

4 

/• 

105  <OIM  VAR  HEAO>  :;=  <IDENTIFIER>  ( 

♦ / 

02455 

4 

oc; 

02456 

4 

IF  NORMALSLOCKUPIMPl  AND  PASSl  THEN 

02  45  7 

5 

CALL  ERROR! • OP* ) ; 

C2458 

5 

CALL  SETYPE! SUBVAR) ; 

C2459 

5 

IF  PASSl  THEN 

C2460 

5 

CALL  SETADORICOUNTPRT » ; 

02461 

5 

CALL  literal (GETAOORJ ; 

02462 

5 

CALL  SETTYPEMP (0) ; 

02463 

5 

CALL  S£TSYHL3CMP(8ASE> ; 

02464 

5 

END; 

0246  5 

4 

/* 

106  <OIH  VAR  HEAD>  <EXPRESSION>  , 

♦ / 

02466 

4 

CALL  CHKTYP4; 

02467 

4 

/* 

107  _<CLC£E  STATEHENT>  : :=  CLOSE  <CLOS£  LIST> 

*/ 

C2468 

4 

• 

02469 

4 

/* 

108  <CLCSE  LIST>  : :=  <EXPRESSION> 

*/ 

02  470 

4 

DO  ; 

02471 

4 

CALL  CHKTYP4; 

02472 

5 

CALL  GENERATEICLS)  ; 

02473 

5 

ENG; 

02  4 74 

4 

/* 

109  <CLOSE  LIST>  , <EXPRESSION> 

*/ 

02475 

4 

DO; 

02476 

4 

CALL  CHKTYP4; 

02477 

5 

CALL  GENERATEICLS) ; 

C2478 

5 

END; 

02479 

4 

/* 

110  <READ  STATEMENT>  ::=  READ  <FILE  0PT10N>  <R£AO  LIST> 

*/ 

C2480 

4 

IF  FJLEIC  THEN 

02  481 

4 

DC: 

02432 

4 

CALL  GENERATEIEDR) ; 

02483 

5 

FILEIO  = FALSE;  ■ 

02484 

5 

END; 

02  48  5 

4 

/* 

111  READ  <REAO  LIST> 

*/ 

02486 

4 

« 

02487 

4 

/» 

112  <INPUT  STATEMENT>  : INPUT  <PROMPT  OPTION> 

*/ 

02488 

4 

/• 

112  <R£AO  LIST> 

C2489 

4 

DO; 

02490 

4 

CALL  GcNERATEIECR) ; 

02491 

5 

INPUTSTMT  = FALSE; 

02492 

5 

END; 

02  493 

4 

I* 

113  <PROMPT  CPTION>  <CONSTANT>  ; 

♦ / 

02494 

4 

DO; 

02495 

4 

CALL  PUTSFIELO; 

02496 

5 

CALL  setupsinput; 

02  497 

5 

END; 

02498 

4 

/* 

114 

*f 

C2499 

4 

CALL  setupsinput; 

C25C0 

4 

/* 

115  <aEAD  L1ST>  ::=  <VARIABL£> 

*/ 

02501 

4 

CALL  getsfield; 

02502 

4 

/• 

116  <R£AO  LIST>  , <VARIABLE> 

*/ 

02503 

4 

CALL  GETSFIELD; 

02  504 

4 

/* 

117 

♦ / 

C2505 

4 

FILEIC  = FALSE; 

02506 

4 

/• 

118  <PRINT  STATEMENT>  :;=  PRINT  <PRINT  LIST>  <PRINT  ENO> 

*/ 

02507 

4 

ll4  PRINT  <FILE  QPTION>  <FILE  LIST> 

02  508 

4 

/♦ 

*/ 

02509 

4 

DO  ; 

C2510 

4 

CALL  GENERATEIEOW)  ; 

02511 

5 

FILEIO  = FALSE; 

02512 

5 

END; 

02513 

4 

/* 

120  <PRINT  LIST>  <EXPRESSION> 

*/ 

02514 

4 

CALL  PLTSFIELO; 

02515 

4 

/* 

121  <PRINT  LIST>  <PRINT  OELIM> 

*/ 

02516 

4 

/* 

121  <£XPRESSION> 

♦ / 

02517 

4 

CALL  PLTSFIELO; 

02518 

4 

/» 

122 

*/ 

C2519 

4 

« 

02520 

4 

/* 

123  <FIL£  LI ST>  <EXPRESS10N> 

♦ / 

02  521 

4 

CALL  PUTSFIELO; 

02522 

4 

/* 

124  <EXPRESS1CN>  , <EXPRESSION> 

♦/ 

02523 

4 

CALL  PLTSFIELO; 

C2  524 

4 

/* 

125  <PR1NT  ENO>  ::=  <PRINT  OELIN> 

♦ / 

C2  525 

4 

f 

02526 

4 

/* 

126 

*/ 

02  52  7 

4 

CALL  GENERATEIOBF) ; 

02528 

4 

/* 

127  <FILE  CPTION>  <£XPRESSION>  ; 

C2  529 

4 

DO; 

C2  530 

4 

FILEIO  = TRUE; 

02531 

5 

CALL  GENERATE (RON)  ; 

02532 

5 

CALL  GENERATEIROB)  ; 

02533 

5 

END; 

02  534 

4 

/* 

128  <EXPR£SSION>  , <EXPRESSICN>  : 

02535 

4 

DO  ; 

02536 

4 

FILEIO  = TRUE: 

CALL  GE  NERATE (RON)  ; 

02537 

5 

02  53  8 

5 

CALL  GENERATEIXCH)  ; 

02  539 

5 

CALL  GENERATE(RON)  ; 

_C2  540 

5 

CALL  GENERATEIROF  ) ; 

F 


1 


~D2  5A1 

5 

ENO; 

025^.2 

4 

/* 

129  <PRINT  0BLIH>  : : = ; 

OZbAB 

4 

• 

02  5«4 

4 

/♦ 

130  , 

*/ 

025'.5 

4 

IF  NOT  FILEIO  THEN 

02  5^6 

4 

CAI.L  GENEHATc  (NSP)  ; 

025^^7 

4 

/* 

131  <GCrO  STATEMENTb  <GOTO>  <NUMBER> 

*/ 

02  54a 

4 

CALL  RESOLVE «LA8ELi 

02  549 

4 

/* 

132  <0N  STATEMENT>  <0N  COTQ>  <LA8EL  LIST> 

*/ 

C2550 

4 

CALL  GENS0N$2; 

02  551 

4 

/♦ 

133  <CN  G0S'J6>  <LA8EL  LIST> 

*/ 

02552 

4 

00; 

02553 

4 

CALL  GEN$0Nt2; 

02  554 

5 

CALL  ENTER$COMPILER$LABEL(0) ; 

02555 

5 

END; 

02556 

4 

/♦ 

134  <CN  GOTO  ::=  ON  <cXPRESSION>  <GOTO> 

•/ 

02  55  7 

4 

CALL  GEN50N; 

02558 

4 

/* 

135  <CN  GC3Ue>  : ON  <EXPRESSION>  <G0SU8> 

*/ 

C2559 

4 

00; 

C2  560 

4 

CALL  SET$C0MPILER1LA8EL; 

02  561 

5 

CALL  LI TERAL(GcTAOOR) ; 

02562 

5 

CALL  GENERATE! AOJ) ; 

02563 

5 

CALL  GENERATE(XCH) ; 

02564 

5 

CALL  GENSON; 

02  565 

5 

END; 

02566 

4 

/♦ 

136  <LA8EL  LIST>  : ;=  <NU.'18ER> 

*/ 

02  56  7 

4 

00  ; 

02  56  8 

4 

CALL  SESCLVESLABEL ; 

C2  569 

5 

CAIL  SETTYPESP(l) ; 

C2570 

5 

END; 

02571 

4 

/* 

137  <LA6EL  LIST>  , <NUP.8ER> 

*/ 

02  572 

4 

00; 

02573 

4 

CALL  RE SCLVE$LA6£L; 

02  574 

5 

CALL  SETTYPEMPdYPEMP  + 1); 

C2  57  5 

5 

ENO; 

02576 

4 

/* 

138  <GCSUB  STATEMENT>  ::=  <G0SUB>  <NUMBER> 

*/ 

02  577 

4 

00; 

02578 

4 

GC$UBSTf*T  = TRUE; 

02579 

5 

CALL  RESOLVE SLAScL; 

C2  530 

5 

GCSUBST.^T  = FALSE; 

02581 

5 

ENO; 

02582 

4 

/« 

139  <GOTO>  ;:=  GOTO 

*/ 

C2583 

4 

02584 

4 

/* 

140  GO  TO 

*/ 

02  585 

4 

9 

02586 

4 

/* 

141  <GCSUB>  : :=  GOSUB 

*/ 

02587 

4 

; 

02  58  8 

4 

/♦ 

142  GO  SU3 

*/ 

C2539 

4 

C2S90 

4 

/* 

143  <MEXT  STATEMENT>  :;=  <NcXT  H£AO>  <iOENTIFI3R> 

*/ 

02  591 

4 

CALL  GEMSNEXTSWITHSIOENT; 

02592 

4 

/* 

144  NEXT 

02  593 

4 

CALL  GENNEXT; 

02  594 

4 

/* 

143  <NEXT  HEAO>  ::=>  NEXT 

«/ 

C2595 

4 

» 

02596 

4 

/> 

146  <NEXT  HcAD>  <IOENTIFIER>  , 

*/ 

02  597 

4 

CALL  GENiNEXTSWITKSIDENT; 

02598 

4 

/♦ 

147  <3LT  STATEMENT>  ::=  OUT  <EXPR6SSICN>  , <EXPR£SSION> 

4/ 

02599 

4 

IF  STYPEMPl  <>  FLOATPT  OR  STYPESP  <>  FLOATPT  THEN 

C2600 

4 

CALL  ERROR!' MF'  ) ; 

02  601 

4 

ELSE 

02  602 

4 

call  GENERATE !P0T) ; 

02603 

4 

/* 

148  <RETURN  STAT6MENT>  ::=  RETURN 

4/ 

02604 

4 

CALL  GENERATE!RTNI ; 

02  605 

4 

/* 

149  <STCP  STATEMENTb  STOP 

4/ 

02606 

4 

CALL  GENERATE!XIT) ; 

02  60  7 

4 

/» 

150  <ENO  STATEMENTb  ::=  ENO 

4/ 

02608 

4 

IF  PASSl  THEN 

02609 

4 

DC; 

02610 

4 

PASSl  = FALSE; 

02611 

5 

CALL  REWINDSSOURCESFILE; 

02612 

5 

IF  FORCOUNT  <>  0 THEN 

02613 

5 

00; 

02614 

5 

CALL  ERSORI'FU* ) ; 

02615 

6 

FORCOUNT  = 0; 

02616 

6 

END; 

C2617 

5 

CALL  GENERATE!'  *•  ) ", 

02618 

5 

CALL  GENTWO!  !C00ESI2E  + 3)  AND  OFFFCH)  ; 

C2619 

5 

CALL  GENTWO !OAIACT » ; 

C2620 

5 

CALL  GENTW0!CGUNTPRT1 ; 

02  621 

5 

END; 

02622 

4 

ELSE 

02623 

4 

00; 

02624 

4 

00  WHILE  NEXTCHAR  <>  EOLCHAR; 

02625 

5 

NEXTCHAR  = GETCHAR; 

02626 

6 

END; 

02627 

5 

CALL  GENERATE (XI T) ; 

02628 

5 

CALL  GENERATE!7FHI ; 

02629 

5 

CALL  WRITESiNrsFILE; 

C2  63  0 

5 

CALL  clqsc-sintsfile; 

02o31 

5 

CALL  PR1NTOEC!ERPORCOUNT) ; 

02632 

5 

call  PRINT!.'  ERRORS  OETECTEO$*l; 

02  633 

5 

call  crlf; 

02634 

5 

CALL  M0N3; 

02635 

5 

ENO; 

02636 

4 

/* 

151  <R£Srr>RE  STATtMcNT>  RESTORE 

4/ 

02637 

4 

CALL  GENERATE!RST)  ; 

02638 

4 

/• 

152  <RANPCMI2E  STAT£NENT>  RANDOMIZE 

•/ 

JJ2639 

4 

CALL  GENERATE! IRNI ; 

A 
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'C2640 

4 

END  /»  OF  CASES  */; 

02641 

3 

02642 

3 

return: 

02  643 

3 

ENO 

SYNTHESIZE; 

02644 

2 

02645 

2 

C2646 

2 

C2647 

2 

DECLARE 

02  648 

2 

I INOEXSIZEi 

02649 

2 

J INOEXSIZe, 

C2650 

2 

K INOEXSIZE. 

02651 

2 

INDEX  BYTE: 

02652 

2 

02653 

2 

INITIALIZE:  PPOCEOURE; 

02654 

3 

CALL  INITIAL IZEiSYMTBL  ; 

02655 

3 

CALL  INlTlALlZctSYNTHESIZE; 

02656 

3 

call  INITIAL IZESSCANNER; 

C2657 

3 

retlrn; 

02658 

3 

ENO  INITIALIZE; 

02659 

2 

C2660 

2 

02661 

2 

GETINl:  PROCECURE  INOEXSIZE; 

02662 

3 

RETURN  INDEXUSTATE)  ; 

02663 

3 

ENO  GETINl; 

02664 

2 

02  66  5 

2 

02666 

2 

GETIN2;  PROCECURE  INOEXSIZE; 

02667 

3 

RETLRN  IN0eX2( STATE! ; 

02668 

3 

END  GETIN2; 

C2669 

2 

C2670 

2 

02671 

2 

INCSP:  PROCECURE; 

02672 

3 

IF  ISP  :=  SP  + 1)  = LcNGTHlSTATESTACKl  THEN 

02673 

3 

CALL  ERROR! *S0' 1 ; 

02674 

3 

RETLRN; 

02675 

3 

END  INCSP; 

02676 

2 

02677 

2 

02678 

2 

LOOKAHEAD:  PROCECURE: 

02679 

3 

IF  NOLOOK  THEN 

C2680 

3 

OC; 

02681 

3 

CALL  SCANNER; 

02682 

4 

NOLOOK  = FALSE; 

02683 

4 

END; 

02684 

3 

RETLRN; 

ENO  LOCXAHEAC; 

02685 

3 

02666 

2 

02687 

2 

02688 

2 

SETSVARC$I:  PROCEDURE!  1 1 ; 

02689 

3 

cecLARE  1 byte; 

C2690 

3 

/*  SET  VARC,  AND  INCREMENT  VARINOEX  ♦/ 

02691 

3 

Vipc ( VARINOEX 1 -I : 

02692 

3 

IF  I VAR  INDEX :=VARI ND£X>1 ) > LENGTH(VARC)  THEN 

02693 

3 

CALL  ERROR! 'VC* ) ; 

02694 

3 

retlrn; 

02695 

3 

ENO  SETIVARCSI; 

02696 

2 

02697 

2 

/♦ 

02698 

2 

02699 

2 

02  700 

2 

* EXECUTION  OF  THE  COMPILER  eEGTNS  HERE 

* 

02701 

2 

« 

♦ 

02702 

2 

* THE  OUTPUT  FILE  IS  CREATED  AND  THE 

* 

02703 

2 

• SYMBOLTABLE,  SYNTHESIZE  AND  SCANNER 

« 

02704 

2 

* ARE  initialized.  THEN  THE  PARSER 

02  705 

2 

* BEGINS  PROCESSING  THE  SOURCE  PROGRAM. 

02  706 

2 

* PRCCtSSING  CONTINUES  UNTIL  AN  ENO 

02707 

2 

• STATEMENT  IS  INCOUNTEREO  OR  UNTIL  THE 

* 

C2708 

2 

• END  OF  THE  SOURCE  FIlE  IS  OE’^ECTEO. 

* 

02  709 

2 

• AT  THIS  TIME  the  THREE  MAIN  PROCEDURES 

02710 

2. 

• ARE  initialized  FOR  PASS  2 AND  THE 

4 

02711 

2 

* PARSER  PROCESSES  THE  SOURCE  FILE  A 

4 

02712 

2 

* SECOND  time.  AT  THE  END  3F  EACH  STATE- 

* 

02713 

2 

* MENT  IWHICH  to  the  parser  is  a PROGRAM) 

4 

02714 

2 

* AND  IF  an  error  tS  DETECTED  THE  PARSER 

4 

02715 

2 

* VARIABLES  ARE  RE  1 N I T I AL 1 Z£ 0 BY  SETTING 

4 

02716 

2 

* COMPILING  FALSE. 

4 

02717 

2 

* 

« 

C2718 

2 

02719 

2 

*/ 

C2720 

2 

02721 

2 

CALL  PfiINT(  . *NeASIC  COMPILER  VER  1.2J'); 

02722 

2 

CALL  CRLF: 

02723 

2 

call  INITIALIZE;  (*  INITIALIZE  MAJOR  SYSTEMS  PRIOR  TO  PARSING 

*/ 

02724 

2 

02725 

2 

00 

FOFEVER;  /*  THIS  LCCP  CONTROLS  THE  2 PASSES  OF  THE  COMPILER 

*/ 

02  726 

2 

00 

WHILE  IPASSl  OR  PASS2);/»  THIS  LOOP  RE  I NI T I AL I ZE S ON  ERR  OR 

occ 

02727 

3 

/*  INITIALIZE  variables  */ 

C2728 

3 

CCMPIL  tKG.NOLOCK=TRU£:  ST A TE  = S TARTS ; 

02729 

4 

SP*255; 

02730 

4 

VARINOEX, VAR  » 0; 

02731 

4 

02732 

4 

00  WHILE  ccmpilIng; 

02733 

4 

IF  STATE  <=  MAXRNO  THEN  /*  READ  STATE  »/ 

02734 

5 

DC: 

02  735 

5 

CALL  INCSP; 

-02736 

6 

STATESTACKISPI  = STATE; 

02737 

6 

I = GETINl; 

02  738 

6 

CALL  lookahead; 

C2739 

6 

J = I + GETIN2  - 1 ; 

02740 

6 

00  I = I TO  J; 

02  741 

6 

IF  REAOUI)  = TOKEN  THEN  /*  SAVE  TOKEN  */ 

02  742 

7 

00; 

02743 

7 

VAR(SP)  = VARINOfcX; 

02  744 

8 

DO  INDEX  = 0 TO  ACCOM; 

02745 

8 

call  SETSVARCii lACCUMl  index ) ) 

02746 

9 

ENO; 

02747 

3 

HASH(SP)  = HASHCOOe; 

C2  748 

3 

STYFEISPl  = SU8TYPE; 

32  749 

3 

STATE  = REA02I  1) ; 

C2750 

a 

NOLOOX  = TRUE; 

02751 

3 

I = j; 

02  752 

8 

cNO; 

02753 

7 

ELSE 

02754 

7 

IF  I = J THEN 

02  755 

7 

CALL  ERROR! ‘NP*  I; 

02756 

7 

END; 

02757 

6 

end; 

C2758 

5 

C2759 

5 

ELSE 

02760 

5 

IF  STATE  > MAXPNO  THEN  /*  APPLY  PRODUCTION  STATE 

02  761 

5 

00; 

02762 

5 

HP  = SP  - GETIN2; 

02  763 

6 

MPPl  = MP  + 1; 

02  764 

6 

CALL  SYNTHESIZECSTATE  - MAXPNO); 

02  765 

6 

IF  compiling  THEN 

02  766 

6 

00; 

02767 

6 

SP  = MP; 

C2768 

7 

I = GETINl; 

02769 

7 

VARINOEX  = VARISP); 

02  770 

7 

J = STAT£STACK(SP) : 

02771 

7 

DO  WHILE  (K  :=  APPLYl ( I )) 

<>  0 

02  772 

7 

AND  J <> 

k; 

02773 

7 

I = I l; 

02  774 

8 

EMO; 

02  775 

7 

IFISTATc  :=  APPLYZm  ) = 

0 THEN 

02776 

7 

COHP  ILING  = FALSE: 

02  777 

7 

end; 

C2  778 

6 

END; 

02779 

5 

ELSE 

02780 

5 

IF  STATE<=  HAXLNO  THEN  /*  LOOKAHEAD  STATE 

V 

02  731 

5 

DO; 

02782 

5 

I = GETINl; 

02733 

6 

CALL  LOOKAHEAD; 

02784 

6 

00  WHILE  IK  :=  LOQKUD)  <>  0 

AND 

02785 

6 

TOKEN  <>  K; 

02  786 

6 

1=1*1; 

02787 

7 

end; 

C2788 

6 

STATE  = L00K2!  I); 

02789 

6 

END; 

02  790 

5 

ELSE  /«  PUSH  STATE  */ 

02  791 

5 

do; 

02  792 

5 

CALL  INCSP; 

02  793 

6 

STATESTACK (SP ) = GETIM2; 

02  794 

6 

STATE  = GETINl; 

02  795 

6 

END; 

02796 

5 

END:  /*  OF  V«HILE  COMPILING  */ 

02797 

4 

END; 

/•  OF  WHILE 

PASSl  OR  PASS2)  */ 

C2  79  8 

3 

02799 

3 

LISTSGURCE  = TRUE; 

02800 

3 

CALL 

INITIALIZE  : 

02801 

3 

P4SS2 

= TRUE; 

02802 

3 

END; 

/♦  CF  CC  FCREVER  */ 

02803 

2 

02  304 

2 

END; 

/•  OF  0LCCK 

FOR  PARSER  */ 

02805 

1 

02806 

1 

EOF 

.'(i;  pftCGRAM  esROftS 


-1 

’i 
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PROGRAM  LISTING 


BUILD  BASIC-E  MACHINE 


8060  PLMl  VcRS  4.1 


0000 1 1 
COC02  I 

00003  I 

00004  1 

COCOS  1 
00006  1 
Q0C07  1 

00008  I 

00009  1 
COCIO  1 

00011  I 

00012  I 
OOC13  I 

00014  I 

00015  1 

C0016  1 

00017  1 

00018  I 

C0C19  1 

CC020  I 
00021  1 
00022  1 

00023  1 

00024  1 

00025  1 

CO  02  6 1 

00027  1 

00023  1 

CO  02  9 1 

CC030  1 

00031  1 

00032  1 

00033  1 

00034  1 

00035  1 

00036  I 

00037  1 

C0038  1 

C0039  1 

C0C40  1 

00041  1 

OOC42  1 

00043  1 

00044  1 

00045  1 

00046  1 

00047  1 

00048  1 

C0C40  1 

C0050  1 

00051  1 

00052  1 

30053  1 

CO  05 4 1 

00055  1 

00056  1 

OOC57  1 
CO  056  1 

00059  1 

C0060  1 

00061  1 
OOC62  I 
CCC63  1 
0CC64  1 

00065  1 

C0066  1 

00067  1 

C0066  1 

C0C69  I 
C0070  I 

00071  1 

00072  1 

00073  I 

00074  1 

00C75  1 

00076  I 

00077  1 

C0C78  I 
C0079  1 


2000H: 

/* 


*/■ 

DECLARE 


/♦  TUS  IS  .MEMORY  FOR  8ASICI  PROGRAM  •/ 

* # 

* 8ASrC-E  3(J[L0  PROGRAM  * 

* ♦ 

* U.  S.  NAYY  PCSTGRAOUATc  SCHOOL  * 

* MONTEREY,  CALIFORNIA  * 

* * 

♦ WRITTEN  BY  GORDON  EUBANKS,  JR.  ♦ 

* * 

♦ CPM  VERSION  1-2  * 

* * 

* DECEMBER  1976  * 

♦ * 
*#♦***♦•<■«.*#***♦**»«»»#♦»«*«**#•  4#*#*#****  ***♦•>  ■»»»*»**•♦ 

* * 

* THE  BUILD  PROGRAM  GAINS  CONTROL  WHEN  THE  * 

* RUM  TIME  MONITOR  IS  EXECUTED.  ThE  INT  FILE  » 

* FOR  The  program  to  SE  executed  IS  OPENED  * 

* ANO  THE  BASIC-E  MACHINE  IS  8UILT.  * 

* * 

* BUILD  PERFORMS  THE  FOLLOWING  FUNCTIONS:  ♦ 

* ♦ 

» (1)  THE  NUMERIC  CONSTANTS  ARE  READ  FROM  * 

* THE  INT  file,  converted  TO  I M TERNAL- R £P-  * 

* RE5ENTATI ON,  ANO  STORED  IN  THE  FSA.  ♦ 

* * 

* (2)  ThE  SIZE  OF  THE  CODE  AREA,  DATA  AREA  * 

* ANO  NUMBER  CF  PRT  ENTRIES  ARE  READ  FROM  ♦ 

♦.  THE  INT  FILE.  BUILD  THEN  DETERMINES  THE  * 

* ABSOLUTE  ADDRESS  OF  EACH  SECTION  OF  THE  * 

* 6ASIC-E  machine,  these  ADDRESSES  ARE  ♦ 

* PASSED  TO  THE  INTER?  PROGRAM  VIA  FIXED  * 

* ADDRESSES  IN  THE  FLOATING  POINT  SCRATCH  * 

» PAD.  ♦ 

* * 

» 13)  FINALLY  INSTRUCTIONS  ARE  READ  FROM  * 

* THE  FILE  AND  PLACED  IN  EITHER  THE  DATA 

=»  AREA  OR  The  code  AREA.  IN  THE  CASE  OF  3RS 

* 6RC , PRO,  COM,  ANO  OEF  OPERATORS  THE 

* ACORtSS  FOLLOWING  THE  INSTRUCTION  IS  RE- 

* LCCATEO  TO  REFLECT  ACTUAL  MACHINE  ADDRESSES 

» (MINUS  I BECAUSE  PROGRAM  COUNTER  GETS 

* INCREMENTED  PRIOR  TO  USE  (EXCEPT  FOR  CON)  ) 

« AFTER  (REPEAT  AFTER)  THE  MACHINE  HAS  BEEN 

* repositioned  by  INTERP.  THE  END  OF  THE  INT 

* FILE  IS  INDICATED  BY  A MACHINE  INSTRUCTION 

* 7FH. 

* REPOSITIONED  BY  INTERP. 

« 

* GLOBAL  LITERALS 

* 


LIT 

TRUE 

false 

CR 

LF 


LITERALLY 

LIT 

LI  r 

LIT 

LIT 


•LITERALLY  • , 

■ 1’  . 
>0*  , 
•OOH' , 
•OAH*  ; 


*/ 

DECLARE 


« 

* SYSTEM  PARAMETERS  WHICH  MAY 

* RE(3UIRE  MODIFICATION  BY  USERS 

« 

/*  OP  CODES  FOR  BASIC-E  MACHINE  INSTRUCTIONS  »/ 


C0C80 

1 

DAT 

LIT 

• 51* 

00081 

1 

ILS 

LIT 

•28' 

0J082 

1 

DEF 

L IT 

1 9,^, 

00C83 

1 

8RS 

LIT 

•54' 

00084 

1 

BRC 

L IT 

• 55* 

0008  5 

1 

PRO 

L IT 

•30' 

0J086 

1 

CON 

LIT 

•46' 

0008T 

1 

/♦ 

C0C88 

1 

C0C89 

1 

« 

00090 

1 

* 

EXTERNAL 

0009  1 

1 

• 

THESF  ENTRY 

POINTS 

00  092 

1 

03093 

1 

C0C94 

1 

*/ 

.J 


« # » « « «•»»««  * « « « ^ » » « « * « 


TO095 

00096 

00Q97 

0009a 

C0C99 


DECLAPE 


0012A 
0012  5 
00126 
00127 
JO  12  3 
CO  129 
C0130 

00131 

00132 

00133 
JO  134 
00135 
00  13  6 
00  137 
00138 
C0139 
GO  140 
00141 
00  142 

00143 

00144 
00  i45 
00  146 
00147 
CO  148 
CO  149 
C0150 
00  15  1 
00  152 
00153 
00  154 

00155 

00156 

00157 

00158 

00159 
C0160 
00161 
00162 

00163 

00164 
0016  5 
00166 
00167 
00163 
C0169 
CO  170 

00171 

00172 

00173 

00174 
C0175 
00  176 

00177 

00178 
CO  179 
C0180 
C0181 
00182 

00183 

00184 

00185 

00186 
00137 
C0188 
C0189 

_C0190 


900S  LIT  '06h',  /-»  ENTRY  TO  CP/M  ♦/ 

ROOT  LIT  'OH*,  /*  RETURN  TO  SYSTEM  ♦/ 

BDOSBEGIN  ADDRESS  I N 1 T I AL  ( 06H  I , / •>  PTR  TO  SOTTCM  CP/M  ♦/ 

MAX  BASED  BDOSBEGIN  ADDRESS, 


COlOO 

1 

OOlOl 

1 

/«  ENTRY  POINTS  TO 

OTHER  MODULES  ♦/ 

00102 

1 

00103 

1 

FPINPUT 

LI  T 

• 103H' , /*  FLT  PT 

INPUT  CONVERSION  */ 

00104 

1 

FPRTN 

LIT 

• L90H*  , /«■  FLT  PT 

OP  AND  RETURN  VALJE 

00105 

1 

FPNR 

LIT 

• 1 A2H*  , /*  FLT  PT 

OP  ANO  NO  RETURN  */ 

00  106 

1 

BEG  IN 

LI  T 

•2D00H* , /#  TO?  OF 

INTER?  - BEGIN  BU'ILO 

00107 

1 

INTcFPENTRY 

LIT 

•OCOOH',  /»  ENTRY  TO  INTERPRETER  "/ 

C0108 

1 

OFFSET 

LIT 

'400H* , /*  SIZE  OF 

eUILO  WHICH  IS 

CO  109 

1 

AMOUNT  TO 

RFLOCATE  MACHINE 

OOllO 

1 

ON  ENTRY 

TO  INTER?  */ 

OOUl 

1 

/»  PARAMETER 

PASSING  LOCATIONS  »/ 

00112 

1 

00113 

1 

PARAMl 

LIT 

■OaFBH* , 

00  114 

1 

PAR AM2 

LIT 

•03FAH' , 

00115 

1 

PARAM3 

LIT 

•QBFCH>, 

00  116 

1 

PARAM4 

LIT 

'OBFEH'  ; 

00  117 

1 

/» 

001 18 

1 

4^*41301  4i4i  4i4E4t4t^4i  i»4i 4i :^4t  4 4c  4>  t«>»4  4c»^4>4c4i# 

00119 

1 

* 

CO  120 

1 

GLOBAL  VARIABLES 

* 

00121 

1 

* 

♦ 

00122 

1 

4t4c^:^4c4i<(44c4c4(4i 

«*4(4c4c4c4c4e  4c4eT>4c4c«4c4c4c4c4c4(4c«4(4>^^^4  44c4M44‘4c-4c^^«4c«<(4i 

00123 

1 

’»/ 

DECLARE 


/» 

/* 

/» 


CODEBASE  ADDRESS  1 NI TI AL ( PAR AMI ) , 

OATIBASE  ADDRESS  I N I T I Sl I P AR AM2 ) , 

PRT8ASE  ADDRESS  I N I T I AL (P AR AM3 I , 

STACK3ASE  ADDRESS  I NJ Tl AL ( PAR AH4 I , 

Sa  BASED  STACXBASE  ADDRESS, 

MPR  BASED  PRT8ASE  ADDRESS, 

MOA  BASED  DATABASE  ADDRESS, 

MCO  BASED  CODEBASE  ADDRESS, 

MBASE  ACORESS,  /♦  PTR  TO  NEXT  POST  ION 

ME  BASED  MBASE  BYTE, 

BASE  ADDRESS,  /*  PTR  TO  NEXT  POSITION  IN  CODE  AREA 

CURChAR  BYTE.  /*  HOLDS  CHAR  BEING  ANALYZED  */ 
a BASED  BASE  BYTE, 

A 6ASE0  BASE  ADDRESS, 

AP  BYTE,  /♦  ACCUMULATOR  INDEX 

/*  HOLDS  CONSTANTS  PRIOR  TO  CONV  */ 


PINAL 
FINAL 
FINAL 
/#  FINAL 
■ IN  data 


STACK  LOC  */ 
F.RT  LOC  */ 
DATA  LOG  =»/ 
CODE  LCC  */ 
AREA  »/ 


*/ 


/* 


*/ 


ACCOM!  16)  BYTE, 
TEMP  ADDRESS 

T BASED 


TEMP  BYTE; 


♦ 4 

♦ FLOATING  POINT  INTERFACE  ROUTINES  * 


FPN:  PROCEOUREIFUNCTICN, LOCATION) ; 
CECLARE 

FUNCTION  BYTE, 
LOCATION  ADDRESS; 

GOTO  FPNR; 

END  FPN; 


FP:  PROCEOUREIFL'NCTION, LOCATION)  ; 
CECLARE 

FUNCTION  BYTE, 
LOCATION  ADDRESS; 

GO  TO  FPRTN; 

END  FP; 

FPINP:  PROC£CURE(CCUNT,LOCATION)  ; 
DECLARE 

COUNT  BYTE, 
LCCATION  ADDRESS; 

GO  TO  FPINPLT; 

END  FPINP; 


.1 


/♦ 


CP/M  INTERFACE  ROUTINES 


♦ / 

DECLARE 

DISXBLFFLCC  LIT  '80H* , 

ECBLCC  LIT  '5CH', 

DISKSUFPEND  LIT  ' lOOH* , 

/*  IF  OPERATING  SYSTEM  REAOS  VARIABLE  LENGTH  RECORDS 
THIS  MUST  BE  ADDRESS  OF  JCTUAU  END  OF  RtUCRO  */ 
auF-F  ADDRESS  1 Nl  T I AL  ( 0 1 SK  EU  F E EM  0 ) , /*  INPUT  BUFFER  *f 

CHAR  BASED  BUFF  BYTE,  /*  INPUTCUFF  POINTER  */ 

FILENAME  ACORESS  INITIAL  'FCSLOO, 

FNP  BASED  FILENAME  BYTE;  /»  FILE  CONTRCL  BLK  ♦/ 
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I 

i 

I 


"Ooiqi 

00192 

00193 

00194 
C0195 

00196 

00197 
00196 
CO  199 
C0200 
00  201 
00202 
C0203 

00204 

00205 

00206 

00207 

00208 
C0209 
C0210 
00211 
00212 

00213 

00214 

00215 

00216 
00217 
C021H 
00219 
C0220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 
C0229 
C0230 
00231 
00  232 
00233 
00  234 

00235 

00236 

00237 
C0238 
C0239 
C0240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 
C0249 
C0250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 
C0260 
00261 
00262 

00263 

00264 

00265 

00266 

00267 

00268 
C0269 
C0270 

00271 

00272 

00273 
00  27  4 

00275 

00276 

00277 
C0278 
C0279 
CO'  0 
OO^al 
00282 

00283 

00284 

00285 

00286 
00287 

_fl0288 


1 

1 

2 

2 

2 

2 

2 

1 

1 

2 

2 

2 

2 

2 

1 

1 
1 

2 
2 
2 
1 
1 
1 
2 
2 
2 
1 

1 
1 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
3 
3 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
3 
3 
3 
2 
1 

1 
1 

2 
2 
2 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
I 


MONl:PROCEDCi<E  (f'U^CTl on, PARAMETER)  ; 
DECLARE 

FUNCTION  BYTE, 
PARAMETER  AOORESS; 

GC  TO  BOGS: 

ENO  MCNl: 


MCN2;  PROC  ECUR  E I FUNCT  lOfl  .PARAME  TER  ) 
DECLARE 

FUNCTION  BYTE, 
PARAMETER  ADDRESS; 

GO  TO  sees; 

ENO  MCN2: 


BYTE  ; 


MCN3:  PROCEDURE; 

HALT;  /»  FCR  QMRON  SYSTEMS  */ 
GC  TO  3CCT; 

ENO  M0N3; 


PRINTCHAP.:  PRCCECURE(CMAR)  ; 
DECLARE  CHAR  BYTE; 

CALL  MOM  (2  ,CHAR)  ; 

ENO  printchar; 


PRINT:  PROCECUREiaUFFER)  ; 

/» 

PRINT  A LINE  ON  CONSOLE  FOLLOWED  6Y  A 
CARRIAGE  RETURN  AND  LiNEFEEO 

»/ 

DECLARE 

BUFFER  ADDRESS; 
ualL  MCM  (9  .eUFFER)  ; 

CALL  PRiNTCHAR(CR) ; 

CALL  PRINTCHAR(LF)  ; 

END  PRINT; 


OPENIIMTSFILE:  PROCEDURE; 

F N P ( 9 ) = ' I • ; 

FNP(IO)  = *N'; 

FNP(ll)  = *T'  ; 

IF  M0N2I 15, FILENAME)  = 255  THEN 
DO; 

CALL  PRINT!. • NI  $•)  ; 
CALL  MCN3; 

END; 

END  OPENSINTiFI LE; 


REAO$INT$FILE:  FRCCEDURE  BYTE; 

/* 

NEXT  RECCRO  IS  READ  FROM  INT  FILE 
OISKBUFFENO  MUST  REFLECT  THE  ADDRESS 
OF  THE  ENO  OF  THE  RECORD  PLUS  ONE 
FOR  FIXED  SIZE  RECORDS  THIS  IS  A CONSTANT 
RETURNS  ZERO  IF  READ  IS  SAT,  AND  1 IF  ECF 

RETURN  MCN2 (20,FI UENAME) ; 

ENO  READiINTiF  ILt; 

«**«*««*«*<.*«**«««««»«««  *****»**»* 

♦ * 

* GU06AL  PROCEDURES  * 

♦ ♦ 

*/ 


INCBUF:  PROCEDURE; 

IF(8UFF  :»  EUFF  + 1)  >=  OISKBUFFENO  THEN 


00  ; 


END; 

ENO  INC3UF; 


BUFF  = OISKB'JFFUOC  ; 

IF  PEAOSINTfFILE  <>  0 THEN 
CHAR  = 7FH; 


STCSCHARtINC:  FRCCEDURE; 

/* 

GET  NEXT  CHAR  FROM  INT  FIUE  ANO 
PUACE  IN  CODE  AREA.  THEN  INCREMENT 
PTR  INTC  CODE  AREA. 

*/ 

8=CHAR; 

8ASe=BASE»l : 

ENO  STOiCHARSINC; 


NEXTtCHAR:  PROCEDURE  BYTE; 
CALu  INCeUF; 

RETURN  CURCFAR  !=  CHAR; 
ENO  NEXTCHAR; 


i 
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C0289 
C0290 
JQ29  I 

00292 

00293 
0029-t 
00295 
0C296 
C0297 
C0298 
C0299 
CO  300 
00  301 
00  302 
00303 
0030A 
00  305 
00  306 
00307 
C0308 
00309 
C0310 

00311 

00312 

00313 

00314 
00  315 

00316 

00317 

00318 
C0319 
C0320 
0032  1 
CO  3 22 
00  32  3 

00324 

00325 

00326 

00327 
00  328 
CO  32  9 
C0330 
00  331 
00  332 
00  333 
00334 
CO  33  5 
00336 
00  337 
00338 
CO  33  9 
CO  340 
C034  1 
00  342 

00343 

00344 

00345 

00346 

00347 

00348 
C0349 
C0350 

00351 

00352 

00353 

00354 
00  35  5 

00356 

00357 
C0358 
C0359 
C0360 
00361 
00  362 
00363 
C0364 

00365 

00366 
0036  7 
00368 
CC369 
C0370 
00  371 

00372 

00373 

00374 
C0375 
00  376 
00377 
C0378 
C0379 
C0330 
00  381 
00  38  2 
410  38  3 


1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

1 

1 

1 

2 

2 

2 

1 

1 

1 

2 

2 

2 

2 

2 

2 

1 

I 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
1 
1 
1 
1 
1 
1 
1 

2 
2 
2 
2 
2 
2 
2 
I 
1 
1 
1 
I 
1 
I 
1 
I 
1 
I 
1 
1 
1 
1 
1 
1 

1 

2 
2 
I 

1 

1 

1 

1 

I 

I 

1 

I 

I 

I 

I 

I 

1 

I 

1 

1 

I 

1 

1 

I 

I 


G£TtTV.O$BYTcS:  FPCCEDURE; 

/♦ 

GET  NEXT  TWC  8YTES  FROM  THE  INT  FILE 

ANO  PLACE  THEM  IN  THE  CODE  AREA  IN  REVERSE  ORDER. 

*/ 

am  = nextichar: 

6 = NEXTCHAP; 

6 C T I IQ  M * 

END  GETiTWOseYTES;  ' 


INCSBASESTWC:  PBCCEOURE; 
BASE  = BASE  +1+1; 
RETURN ; 

END  INCtBASESTWCi 


GETPAPM:  procedure  ADDRESS; 

/<■ 

READ  A It  BIT  parameter  FROM  INT  FILE 
AND  CCiWERT  IT  TO  AN  8080  ADDRESS  QUANTITY 

*/ 

RETURN  SHLI CGU3LE (NEXTCHARl ,3)  ♦ NEXTCHAr; 

END  GETPARM; 


♦ EXECUTION  BEGINS  HEr^E 

#:}c  4141 ««  4i ^ 4^ 

*/ 

CALL  PRINT!. 'NBASIC  INTERPRETER  - VER  1.2$*); 

BASE  = -MEMCRY;  /*  THIS  IS  BEGINNING  OF  MACHINE  AND  FDA  */ 

CALL  FPN(0, C»;  /*  INITIALIZE  FLOATING  POINT  PACKAGE  »/ 

/* 

PRCCESS  CONSTANTS 

EACH  CONSTANT  IS  SEPARATED  BY  A i 
LAST  CCNSTANT  FOLLOWED  BY  A * 

*/ 

DO  WHILEIACCUM  :=  NEXTSCHAR)  <>  •*';  /*  * INDICATES  END  OF  CONST  */ 

AP  = 0;  /*  COUNTER  FOR  LENGTH  OF  THIS  CONSTANT  */ 

00  WHILGIACCUMI  AP:  = AP<-U  :=  NEXTSCHAR  ) <> 

/■»  GET  CONSTANT  INTO  THE  ACCUM  «/ 

EMC; 

CALL  FP JNP ( iP, .ACCUM ) ; !*  CONVERT  IT  TO  INTERNAL  FORM  */ 

CALL  FP(9,8ASE);  /»  LOAD  INTO  FDA  FROM  F/P  ACCUM  *! 

BASE  = BASE  + 4;  /*  NEXT  LOCATION  */ 

END;  /#  CF  LOOKING  FOR  » */ 

/* 

SETUP  MACHINE  ADDRESS 

BASE  WILL  NCW  BE  NEXT  POSITION  IN  CODE  AREA 
«bAS£  WILL  BE  NEXT  P0STI3N  IN  DATA  AREA 

ACTUAL  ADDRESSES  OF  CODE  AREA,  DATA  AREA 
PRT,  ANO  STACK  ARE  PASSED  TO  INTERPRETER 
USING  FIXED  LOCATIUNS 

*/ 

MBASE  = GETPARM  + BASE; 

MOA  = VBASE  - CFFSET;  /»  ACTUAL  DATA  AREA  ADOR  */  ''y 

■•'CD  = 5ASE  - OFFSET;  /»  ACTUAL  CODE  AREA  ADOR  */  ' 

MRR  = GETPARM  + MDA;  /»  ACTUAL  BEGINNING  OF  PRT 
IF  MPR  >=  MAX  THEN  /*  INSURE  THERE  IS  ENOUGH  MEMCRY  */ 

DO; 

CALL  PRINT!. *NM  S'J; 

CALL  MCN3; 

END; 

SB  = SHL(GETPARI',2)  + MPR;  /*  NUMBER  OF  ENTRIES  IN  PRT  * 4=SIZE  PRT  ♦/ 

/♦ 

BUILD  MACHINE  - ATLAST 
AS  OPCGCES  ARE  READ  THEY  MAY  BE: 

(1)  DAT  - WHICH  MEANS  ALL  CHARACTERS 
FOLLOWING  OAT  GO  INTO  DATA  AREA  UNTIL 
A BINARY  ZERO  IS  INCOUNTER50 

(2)  GREATER  THAN  127  - WHICH  IS  A LIT 
OR  A LIT.  TREAT  THIS  AS  16  BIT  OPCODE 
AND  PUT  IN  CODE  AREA  IN  ORDER  THEY  ARE 
ON  INT  FILE 

(3)  ILS  - WHICH  MEANS  ALL  CHARACTERS 
FCLLCWING  GO  INTO  CODE  AREA  UNTIL  A 
BINARY  ZERO  IS  INCOUNTEREO  - BUT  FIRST 
PUT  A ILS  IN  CODE  AREA  ANO  THE  NEXT 
BYTE  IS  SET  TO  ZERO  AND  INCREMENTED 
FOR  EACH  CHARACTER  IN  THE  STRING.  IE 

A STRING  CONSTANT  IS  A ILS  OPCODE, 

A length  ANO  the  STRING. 
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« « * » » 


0038<» 

00385 

00386 

00387 

00388 
C0389 
C0390 
00391 
C0392 
00393 
00399 

00395 

00396 

00397 

00398 

00399 
C0900 

00901 

00902 

00903 

00909 
0090  5 
00906 
00  90  7 
00  90  8 
C0909 

00910 

0091 1 

00912 

00913 
00919 

00915 

00916 

00917 

00918 
CO  9 1 9 
C0920 

00921 

00922 

00923 
00929 
00  92  5 

00926 

00927 
CO  92  8 
C0929 
C0930 

00931 

00932 

00933 
00939 

00935 

00936 
C0937 
NO  PR 


1 
I 
1 
1 
I 
I 
1 
1 
1 

1 
1 

2 
2 
3 
2 
2 
2 
2 
3 
3 
3 
2 
2 
2 
2 
3 
3 
3 
3 
3 
9 
9 
3 
2 
2 
2 
3 
3 
3 
3 
9 
9 
9 
3 
3 
3 
3 
9 
9 
9 
3 
2 
1 
1 

CGR3M 


19)  7 NORMAL  OP  CODE  - PUT  IN  CODE 
AREA  - BUT  IF  IT  IS  A BRS  JR  BRC  OR 

OcF  Ck  pro  then  the  next  two  bytes 

ARE  AN  ADDRESS  WHICH  MUST  BE  RELOCATED 
TC  THE  ACTUAL  CODE  AREA  MINUS  l! 

OR  IT  COULD  BE  A CON  WHICH  IS 
RELCCATED  TO  THE  FOA. 


DO  while  nexticfar  <>  7fh:  /»  build  machine  *t 

IF  CURCFAR  = OAT  THEN  /*  PROCESS  DATA  STATEMENT  ♦/ 

00  WHILE! MF  s=  NEXTCHAR)  <>  Oi  /#  LOOK  FOR  END  >/ 

MBASE  = MBASE  9 l; 

END; 

ELSE 

IF  CURCHAR  >=  128  THEN  /♦  PROCESS  LIT  OR  LID  */ 

00; 

CALL  STOSCHARJINC; 

CALL  liNCBUF; 

CALL  STOSCHARSINC; 

ENO; 

ELSE 

IF  CURCHAR  = ILS  THEN  /*  PROCESS  INLINE  STRING  */ 

00; 

CALL  STO$CHAR$INC ; 

TEMP  = BASE: 

CHAR  = 0;  /#  TO  SET  LENGTH  TC  0 INITIAL  ♦/ 
CALL  STOSCHARSINC; 

00  WHILE  NEXrCHAR  <>  0; 

CALL  STOSCHARJINC; 

T = T + l; 

end; 

end; 

else 

DO; 

CALL  STOSCHARSl  riC  ; 

IF  (CURCHAR  = BRS)  OR 
(CURCHAR  = DcF)  OR 
DO; 

CALL  GSTSTWOSBYTES ; 

A = A + MCO  - I ; 

CALL  INCSBASESTWO ; 

END; 

ELSE 

IF  CURCHAR  = CON  THEN 
DO; 

CALL  GETSTWOJBYTES ; 

A = SHL(A,2)  9 begin; 

CALL  INCSBASESTWO: 

END; 

END; 

/•  LOCKING  FOR  7FH  */ 


(CURCHAR  = BRC)  OR 
(CURCHAR  = PRO)  THEN 


END;  - 

GOTO  intespentry; 
EOF 

errors 


/<■  ENTRY  POINT  TO  INTERP  ♦/ 
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Ji 


PROGRAM  LISTING 


BASIC-E  INTERPRETER 


8oao  PLMi  veas  4.1 


00001 

00002 

0OCO3 

00C04 

00005 

C0006 

00007 

00008 
CO  009 
COOlO 
00011 
00012 

00013 

00014 

00015 

00016 
00017 
00013 
C0C19 
CC020 
00  021 
00  022 

00023 

00024 
00  02  5 
00026 
00027 
0002  8 
COC29 
C0030 

00031 

00032 
00053 
00034 


C0058 

C0C59 

C0C60 


00C78 
C0C79 
CO  080 
00C81 
00  08  2 
00C83 
00084 
00C85 
00086 
OOC87 


OCOOH: 

/* 


/♦LCAO  POINT  ABOVE  FP  PACKAGE  */ 


*/ 

/* 


BASIC-E  INrErtPRETER 

U.  S.  NAVY  POSTGRADUATE  SCHOOL 
MONTEREY  I CALIFORNIA 

WRITTEN  BY  GORDON  EUBANKS.  JR. 

CPM  VERSION  1.2 
NOVEMBER  1376 


THE  BASIC-E  INTERPRETER  IS  PASSED  CONTROL 
FROM  THE  BUILD  PROGRAM.  THE  FDA,  CODE  AND 
DATA  AREA  ARE  MOVED  DOWN  TO  RESIDE  AT  THE 
.MEMORY  FOR  THIS  PROGRAM,  AMO  THEN  THE  STACK 
PRT  AND  MACHINE  REGISTERS  ARE  INITIALIZED 
THE  INTERPRETER  THEN  EXECUTES  THE  uASIC-E 
MACHINE  CODE. 


*/ 

/♦ 


OOC35 

1 

♦ 

4 

00C36 

1 

4 

GLOBAL  LITERALS 

4 

00037 

1 

4 

4 

00C38 

1 

4i'9iji:4i4444;9i4i^4  If.  444444444444444444  4 44444444444444444444444 

C0C39 

1 

♦ / 

CCC40 

1 

DECLARE 

00  041 

1 

LIT 

LITERALLY  'LITFRALLY*.  . 

00042 

1 

AOOR 

LIT 

•AODRctSS*. 

C0C43 

1 

FOREVER 

LIT 

•while  TRUE' , 

00044 

1 

TRUE 

LIT 

• !■  , 

C0C45 

1 

FALSE 

LIT 

•O'  , 

00046 

1 

LF 

LIT 

' 10'  , 

00047 

1 

CR 

LIT 

• 13'  , 

00048 

1 

CONTZ 

LI  T 

• lAH*  , 

00049 

1 

CUOTE 

LIT 

•22H' , 

C0050 

1 

what 

LIT 

•63' ; 

/^QUESTION  MARK*/ 

0005  1 

1 

00052 

1 

/* 

00063 

1 

44444444444444444444444444444444444444444444444444444444 

OOC54 

1 

4 

4 

00  05  5 

1 

4 

c 

XTERNAL  ENTRY  POINTS 

4 

CO  056 

1 

♦ THESE  ENTRY 

POINTS  ASSUME  THE  USE 

OF  CP/M  * 

00  05  7 

1 

4 

4 

*/ 
DECLARE 


TO  RETURN  TO  SYSTEM  */ 

ENTRY  POINT  TO  CP/M  */ 

cH  ) , 

CCNV  TO  BINARY  ENTRY  •/ 

CO.NV  TO  FLOAT  PT  ENTRY  */ 

CONV  ASCII  TO  float  PT  »/ 

CONV  FLOAT  PT  TO  ASCII  */ 
OPERATION  AND  RETURN  VALUE  */ 
OPERATION  NO  RETURN  VALUE  */ 
RANDOM  NUMBER  SEEO  LCD  */ 
..'•'EMORf  BUILD  PROGRAM  »/ 

MOVE  ROUTINE  ENTRY  */ 

4 BYTE  MOVE  ROUTINE  •/ 

PORT  INPUT  ROUTINE  ♦/ 

pckt  output  routine  »/ 

RANDOM  NUMBER  GENERATOR  ♦/ 


00061 

1 

BOOT 

LIT 

•OH'  , 

/* 

00C62 

1 

aoos 

LIT 

' 5H'  , 

00063 

1 

SYSBEGIN 

ADDRESS 

INITIAL(6H| 

00066 

1 

OVERFLCW 

ADDRESS 

INITIAL! 06 2 

00C65 

1 

CONBIN 

LIT 

• 15/H*  , 

/4 

00066 

1 

CDNFP 

LIT 

• 168H'  , 

/* 

00C67 

1 

FP  INT 

LIT 

• 103H'  , 

/ * 

00068 

1 

FPOT 

LIT 

• lUH'  , 

/* 

C0C69 

1 

FPRTN 

LIT 

• 190H'  , 

/» 

C0C70 

1 

FPNR 

LIT 

' 1A2H'  , 

/* 

00071 

1 

SEEOLOCATIQN 

LIT 

• 0.B5JH'  , 

/* 

0U072 

1 

0U  ILDTCP 

LIT 

• 3100H' , 

/• 

00073 

1 

MJvcENTRY 

LIT 

• 0AA5H'  , 

/• 

00076 

1 

MOVE6E1NTRY 

LIT 

• 0AC2H'  , 

/» 

OOC75 

1 

PORTIN 

LIT 

' OAEOH' , 

/ » 

00076 

1 

PORTOUT 

LIT 

• JAFOH'  , 

/* 

000/7 

1 

RANDOMLCC 

L IT 

• 0A5.BH'  ; 

/* 

/♦ 


*/ 

DECLARE 


SYSTEM  PARAMETERS  WHICH  HAY 
RLOUIRE  MDDir- ICmT  luN  BY  USERS 


00088 

1 

EOLCHAR 

LIT 

•OOH' , 

C0C89 

1 

EOFF ILLER 

LIT 

• lAH' , 

COCVO 

1 

IMTRECSIZE 

LIT 

• 1 2 B • , 

00091 

1 

STR  INGCElIM 

LIT 

•22H', 

00092 

1 

CONoUFFSIZE 

LIT 

•80'  . 

00093 

1 

NUMFILFS 

LIT 

•6’  , 

/* 

MAX  NUMBER 

USER  FILES 

0CC96 

1 

NRSTACK 

LIT 

' 63 ' : 

/♦ 

stack  size 

TIMES  6 ♦/ 

_i30C95  1 
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mssatmEs^ 


C0C46 

1 

/* 

00C97 

1 

00098 

1 

00C99 

1 

GU08AU  variables 

CO  100 

1 

OOlOl 

1 

00102 

1 

♦ / 

00103 

1 

00104 

1 

OECUARE 

00105 

1 

RA 

ADDRESS, 

/ * 

ADDRESS  OF  REG  A */ 

00106 

1 

R8 

ADORE  SS , 

/» 

ADDRESS  OF  REG  0 ■»/ 

00107 

1 

RC* 

ADDRESS, 

/» 

ADDRESS  OF  REGISTER  C */ 

00108 

1 

C 

BASED 

RC 

BYTE,  /•  BYTE  OF  CODE  ♦/ 

C0109 

1 

twobyteoprand  based 

RC 

ADDRESS,  /♦  TWO  BYTES  CODE  */ 

COllO 

1 

SB 

ADDRESS , 

/» 

BOTTOM  OF  STACK  »/ 

00111 

1 

ST 

ADDRESS, 

/* 

TOP  OF  STACK  •/ 

00112 

1 

BRA 

BASED 

RA 

BYTE, 

00  113 

1 

AR  A 

BASED 

RA 

ADDRESS, 

00  114 

1 

ARB 

BASED 

R3 

ADDRESS , 

00115 

1 

BRB 

BASED 

RB 

BYTE, 

BASE  ADDRESS  OF  PRT  •/ 

00116 

1 

MPR 

ADDRESS, 

/ » 

00117 

1 

MOA 

ADDRESS, 

/» 

BASE  OF  OATA  AREA  •/ 

00118 

1 

MCO 

ADDRESS, 

/* 

BASE  OF  CODE  AREA  */ 

G0119 
00120 
00121 
00122 
00123 
0012A 
00  12  5 
00126 
00127 
CO  128 
CO  12  9 
CO  130 

00131 

00132 

00133 
■ 00134 

00135 

00136 

00137 

00138 

00139 
COHO 

00141 

00142 

00143 
CO  144 

00145 

00146 

00147 

00148 
C0149 
C0150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 
C0159 
00160 
00161 
00162 
00163 
CO  164 
CO  165 
00166 
00  167 
00163 
CO  169 
C0170 

00171 

00172 

00173 

00174 

00175 
C0176 
00177 

00176 
C0179 
C0180 
00181 
00182 
00183 
0C184 
00185 
C0186 

00187 

00188 
C0189 

00190 

00191 
_J30192 


CUSRENTLIMc  AOORESS 
OATAAREAPTR  AOORESS, 


INITIAL(O),  /«  SOURCE  LIME  BEING  EXEC  »/ 
/*  CURRENT  LGCATICN  IN  OATA  AREA  */ 
SEECLCC  ADDRESS  IN  I T I AL ( SEEDLOC A T 1 ON ) , 

,M8ASE  ADDRESS;  /*  BEGINNING  OF  FREE  STORAGE  AREA  */ 


DECLARE 


INPUT3LFFER  BYTE 

SPACE(CUNdUFFSIZE)  BYTE 
inputinoex  byte, 

CONBLFFPTR  ADORE 

IMPUTPTR  ADORE 

PR  INTBUFFLENGTH  LIT 

PRINTBLFFERLOC  LIT 

TABPOSl  LIT 

TABP0S2  LIT 

TA8PCS3  LIT 

TABP0S4  LIT 

PRINT3LFFER  AOOR 

PRIMPCS  based 

PRINTEUFFENO  LIT 

PR  INTWCRKARE A< 14)  BYTE, 
REREACAOCR  ADORE 

INPLTTYPE  BYTE; 


INITIAL (CONBUFFSIZE),  /»  USED  WITH  SPACE 
, /*  INPUT  buffer  for  CON  AND  DISK 

SS, 

ss, 

•71*  , 

•30H'  , 

•142',  /* 

• 156'  , /» 

' 170'  , 

■ 184'  , 

SS  INITIALIPRINTBUFFERLQC), 

PR  I NT  BUFFER  BYTE, 

■0C7H',  /»  ABSOLUTE  ADDRESS  */ 

/»  FOR  CCNV  FROM  FP  TO  ASCII  */ 

SS,  /*  TO  RECOVER  FROM  READ  ERROR 


*/ 


ABSOLUTE  ADCR  REL  TO 
PRINTBUFFLOC  »/ 


DECLARE 


fileaocr  address, 

FC3  BASED 

FC3A00  BASED 

cOFAOOR  ADDRESS, 

FILESUUMFILES)  ADDRESS, 

EOFERAACHINUMF ILES)  ADDRESS, 
BUFFERtEND  ADDRESS, 

RECCRDJPOINTER  ADDRESS, 

BUFFER  ADDRESS, 

NFXTDISKCHAR  BASED 

BLOCKSIZE  ADDRESS, 

BYTESiWR  ITTEN  ADDRESS, 

FIRSTFIELO  BYTE, 

EOFRA  ADDRESS, 

E0FR8  ADDRESS; 


/♦CURRENT 
FI LEADOR 
FILEAOOR 


FC3  POINTER 
BYTE  , 
ADDRESS, 


BASE  ♦/ 


/♦POINTER  ARRAY  TO  FC8S  */ 


RECORDSPOINTER  BYTE, 


/* 


*/ 


SYSTEM  DEPENDENT  ROUTINES  AND  VARIABLES 
THE  FOLLOWING  ROUTINES  ARE  USED 
BY  THE  INTERPRETER  TO  ACCESS  DISK 
FILES  AND  FOR  CONSOLE  I/O. 
the  ROUTINES  ASSUME  THE  USE  OF  THE 
CP/M  OPERATING  SYSTEM. 


MONl : PROCEDURE (F,a 1 ; 

declare  f byte, 

A ADDRESS; 

GC  TO  BCCS; 

END  MCNl; 


MCN2:  PRCCE0LRE<F,A)  BYTE; 
DECLARE  F BYTE, 

A ADDRESS: 

GO  TO  sees; 

END  MCN2; 


MCN3:  PROCEDURE; 

haut;  /*  fcr  cmrcn  systems  «/ 

GCTO  BOOT;  /♦  FOR  THE  REST  OF  THE  WORUD  */ 
END  MCN3; 
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~00193 
00194 
0C19  5 

00196 

00197 
0019b 
CC199 
C0200 
00  201 
00202 

00203 

00204 

00205 

00206 

00207 

00208 
C0209 
C0210 
00211 
00212 
30213 

00214 

00215 

00216 
30217 
C0218 
C0219 
C0220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 
CO  22  9 

00230 

00231 

00232 

00233 

00234 

00235 
C0236 
00237 
C0238 
C0239 
C0240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 
C0249 
C0250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 
C0259 
C0260 
00261 
00262 

00263 

00264 
C0265 
00266 
C0267 
00268 
C0269 
C0270 
00271 
C0272 

00273 

00274 

00275 

00276 

00277 

00278 
C0279 
C0280 
00281 
00282 
00283 
00264 

00285 

00286 

00287 

00288 


1 

1 

1 

2 
2 
2 
1 
1 

1 

2 
2 
2 
1 
1 
1 
2 
2 

1 
1 
1 

2 
2 
2 
2 
1 
I 

1 

2 
2 
1 
1 
1 
2 
2 
1 
1 
1 
2 
2 

1 
1 
1 

2 
2 
1 
1 
1 
2 
2 
2 
1 
1 

1 

2 
2 
I 
1 

1 

2 
2 
2 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
L 
1 
2 
2 
2 
1 
I 

1 

2 
2 
2 
2 
2 
2 
3 

3 

4 
4 
3 
3 
2 
1 
I 

1 

2 


PRINTCHAR:  PRUC ECURE ( CHAR ) ; 
DECLARE  CHAR  BYTE  ; 

CALL  ,'^U^^U2.CHAR^  ; 

ENO  PRINTCHAR; 


CRLF;  procedure: 

CALL  PRI.\TCI-AR(CR): 
CALL  PP  INTCI-AR(LF  J : 
ENO  CRLF; 


READCFAR:  PROCEDURE  6YrE; 

RE  TURN  P0N2( 1,0); 
ENO  REAOChAR: 


READ:  PROCEDURE (A) ; 

declare  a ADDRESS; 

/*  READ  INTC  BUFFER  AT  A>2  */ 
CALL  MONK  10, A)  ; 

ENO  READ; 


OPEN:  PROCEuURE  BYTE 

RETURN  MCN2( 15,FI LEAOOR) 
END  open; 


CLOSE:  PROCEDURE  BYTE; 

RETURN  y.CN2(  16,FI  LEAOOR)  ; 
END  CLOSE: 


OISKREAO:  PRCCECURE  BYTE; 

RETURN  MCN2(20,FIL£AD0R) : 
ENO  OISKREAO; 


OISKWPITE:  PROCEDURE  BYTE; 

RETURN  MCN2 ( 21,FI LEADOR) ; 
ENO  OISKWRITE; 


MAKE:  PROCECURE  BYTE: 

CALL  MONK  19,rIL£A00K)  : 
RETURN  ,MCri2(22,FI  LEAODR)  ; 
ENO  MAKE; 


SETDYA:  PROCEOUPE:  /*  SET  DMA  ADDRESS  FOR  DISK  I/O  */ 

CALL  M0NK26, BUFFER)  : 

END  SETDMA; 


PRINT:  PRCCECURE(A) : 

DECLARE  A ADDRESS; 

/*  PRINT  THE  STRING  STARTING  AT  ADDRESS  A UNTIL  THE 
NEXT  DOLLAR  SIGN  IS  EMCQUNTEREO  */ 

CALL  MQM(9,A); 

ENO  PRINT; 


/♦ 

* GEN6RAL  PURPOSE  INTERP<?ETER  PCUTINES 

*/ 

TIMES4:  PROCEDURE  (N)  ADDRESS; 

DECLARE  N ADDRESS; 

RETURN  SFL(N,2); 

END  TIM5S4; 


PRINTtDEC:  PRCCECURE I VALUE ) ; 

DECLARE  VALUE  ADDRESS, 

I BYTE, 

COUNT  8YTE, 

CECIMAL<4)  address  INI TI AL( 1000 , 100, 10, 1) : 
DO  I = 0 TO  3; 

COUNT  = 30HT 

DO  WHILE  VALUE  >=  OECI.MAL(I); 

VALUE  = value  - OECIMALtI); 

CCUNT  = COUNT  <■  li 
END; 

CALL  PRINTCHAR(CGUNT)  ; 

END: 

END  PRINTSOEC; 


MOVE : PROCECURE(SCURCE,OEST,N) ; 
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^0289 

CC290 

0C291 

00292 

00293 

00294 

00295 

00296 
0C297 
00298 
C0299 
C0300 

00301 

00302 
00203 
00  304 
00305 
C0306 
00207 
00308 
00  309 
C0310 
00311 
C0312 

00313 

00314 

002  15 

003  16 

00317 

00318 
C0319 
C0320 
00  321 
00322 
0C323 

00324 

00325 

00326 

00327 
00  228 
C0229 
C0330 
00331 
00232 

00333 

00334 

00335 

00336 

00337 

00338 
C0339 
C0340 
00241 

00342 

00343 

00344 
00245 

00346 

00347 

00348 
C0349 
C0350 

00351 

00352 

00353 

00354 
00255 
00356 
0035  7 

00358 

00359 
C0360 
00361 
C0362 

00363 

00364 
00265 

00366 

00367 

00368 
C0369 
C0370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 
0038  I 

00382 

00383 

00384 
002U5 

00386 


2 

2 

2 

2 

3 

3 

3 

2 

2 

2 

1 

1 

1 

2 

2 

2 

2 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

2 

1 

1 

1 
1 

2 
2 
2 
2 
2 
2 
3 
3 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
I 
I 
1 
1 
1 
1 
1 
1 

1 
1 
1 

2 
2 
1 

1 

2 
2 
2 
2 
1 

1 

2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
1 


/♦■■lave  N OYTES  ep.CM  souRce  to  oest  ♦/ 

CcCOARE  (SOURCE, OEST.N)  AOORESS; 

MCVEA:  RROCECUREl A)  ; 

DECLARE  A ADDRESS; 

GOrC  f»CVEENTRY: 

END  MOVEA; 

CALL  MOVcA( .SOURCE) ; 

END  MOVE; 


M0VE4:  PROCeCURE( SOURCE, OEST) ; 
DECLARE  SOURCE  ACCR6SS, 
DEST  ADDRESS; 

GOTO  M0VE4ENTRY; 

END  MCVE4; 


FILL:  PROCeCURE(CEST,CHAR,Nl; 

/♦FILL  LCCATICNS  starting  AT 
CeCLARE 

OEST  ADDRESS, 

N ADDRESS, 

D BASED  OEST 

CHAR  BYTE; 

DO  'RHILE  (N:=N-U  <>  OFFFFH; 
0 = char; 

OEST  = DEST  * l: 

END; 

END  fill; 


OEST  WITH  CHAR  FOR  N BYTES  */ 


BYTE, 


QUTPUTtMSG:  PROCEDURE (MSG) ; 

DECLARE  MSG  ADDRESS; 

call  PR iNTSCHAR ( H IGH(MSG) ) ; 

CALL  PR  INTiCHAR (LCH(MSG) ) : 

IF  CURRENTLINE  > 0 THEM 
CO  ; 

CALL  PRINT!.'  IN  LINE  $•); 
CALL  PRINT$DEC(CURRENTLINE) ; 
END; 

CALL  CRLF; 

END  cutputsmsg; 


ERROR:  PROCECURE ( E) ; 

CECLARE  E ACORESS ; 

CALL  CRLF; 

CALL  PRINT! .'ERROR  S'); 

call  outputmsg(E) ; 

CALL  ■N0N3; 

END  ERROR; 


WARNING:  PRCCEDLRE(W) ; 

CECLARE  .>  ACCRESS; 

CALL  CRLF; 

CALL  PR  INTI  . 'WARNING  S'); 
CALL  QUTFUTMSG(W)  ; 

return; 

END  WARNING; 


/* 

t * It-*  *****^^*tf-lr*-*«  *******************  «***■***»*** 

* 

* STACK  MANIPULATION  ROUTINES 

♦ 

♦/ 

STEPSINSSCNT:  PRCCEOURE; 

RC  = RC»1  ; 

END  STEPSINSSCNT  ; 

POPSSTACK:  PROCECURE; 

RA  = R0 ; 

IF(RB  :=  RB  - 4)  < S3  THEN 
RB  = ST  - 4; 

END  PCPSSTACK; 

PUSHSSTACK:  PRCCEOURE; 

S3  = RA; 

IF(RA  :»  RA  ♦ 4)  >=  ST  THEN 
RA  = se; 

END  PLSHSSTACK; 


INSFSA:  PRCCEOURE(A)  BYTE; 

/♦ 

RETURNS  TRUE  IF  A IS  IN  FSA 

♦ / 

DECLARE  A ACCRESS; 

RETLRN  A > ST; 

END  INSFSA; 


« Sf  « « « 


C0387 

00388 

C0389 

CC390 

00391 

00392 

00393 
0039^ 

00395 

00396 

00397 

00398 
C0399 
C0900 

00401 

00402 
C0403 
00404 
C0405 

00406 

00407 
00  403 
C04C9 
C0410 

00411 

00412 

00413 
00  414 

00415 

00416 

00417 

00418 
C0419 
C0420 

00421 

00422 
0042  3 
00424 
G0425 

00426 

00427 
CO  42  8 
00429 
C0430 

00431 

00432 

00433 

00434 

00435 

00436 

00437 

00438 
C0439 
C0440 

00441 

00442 

00443 

00444 

00445 

00446 

00447 

00448 
C0449 
C0450 

00451 

00452 
C0453 

00454 

00455 
C0456 

00457 

00458 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 
C0470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 
C0478 
00479 
C0480 

00481 

00482 
_^C483 


1 
1 

2 
2 
2 
2 
1 

1 
1 

2 
2 

1 
1 
1 

2 
2 
1 
1 

1 

2 
2 
2 
2 
2 
1 

1 
1 

2 
2 
2 
1 
1 
2 
2 
1 
1 
1 
2 
2 
1 
1 
1 
2 
2 
1 
1 
1 
2 
2 
1 
1 
1 
2 
2 

1 
1 
1 

2 
2 
1 


2 

2 

2 

1 

1 

1 

1 

1 

I 

1 

1 

I 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


SETSOATAiADCR:  PBOC  EOliRi:  ( PTR  ) i 

DECLARE  PTR  ACCRlSS.  A bAiEO  PTR  ADDRESS; 
IF  NOT  IN$F$A(A)  then 

A = MPR  * TIM6S4(A) : 

END  ScTSOATASADCR; 


MOVEJRAtRB:  procedure; 

CALL  M0VE4(RA,RB) ; 
ENO  MCVEARA3RB; 


MOVEtRBSRA:  PRCCEDURE; 

call  «ovE4(fte,RA) ; 
END  hoverbra; 


FLIP;  PROCEDURE; 

DECLARE  TEMP<4)  BYTE; 
call  movE4(ra ,.tepp) ; 
CALL  MOVEtRBlRA; 

CALL  MCV£4( .TEMP.RB) ; 
ENO  flip; 


LQA0$RA:  PROCEDURE; 

CALL  SE T$DATA$AOOR(RA)  ; 
CALL  MCV64(ARA,RA) ; 

ENO  loadra; 

RASZERQ:  PRCCEDURE  BYTE; 

RETURN  BRA  = 0; 

ENO  RASZERO; 


RBSZERC:  PRCCEDURE  BYTE; 

RETURN  BRB  = 0; 

END  RBSZERO; 


RASZEROSAOORESS:  PROCEDURl  BYTE; 

RETURN  ARA  = 0; 

ENO  RASZEROSAOORESS; 


RBSZEROSAODRESS:  PROCEDURE  BYTE; 

RETURN  ARB  - 0; 

END  RBSZEROSAOORESS; 


RASNEGATIVE:  PROCEDURE  BYTE; 

RETURN  RCL(ERAU)  ,11  ; 

ENO  RASNEGATIVE; 


RBSNEGATIVt:  PRCCEDURE  BYTE; 

RETURN  RCLlEBBd)  ,1)  ; 

ENO  R8SNEGATIVE; 


FLAGSSTHINGSACDR:  PROCEOURE(X) ; 
DECLARE  X BYTE; 

BRA (2)  * x; 

ENO  FLAGSSTR  INGIAOOR; 


/♦ 

• FLOATING  POINT  INTERFACE  ROUTINES 

« 

• ALL  FLOATING  POINT  OPERATIONS  ARE  PERFCRPEO 

• BY  CALLINu  ROUTINES  IN  THIS  SECTION.  ThE 

• FLOATING  POINT  P-CKAGE  IS  ACCESSED  BY  THE 

• FOLLOWING  SIX  ROUTINES: 

• (II  CONV 5TOS8 INARY 

• (2)  CONVSTOSFP 

• 13)  Ft-SINPUT 

• (41  FPSOUT 

• (5)  FPSJPSRETURN 

• (6)  FPiJP 

• checksoverflow  does  just  that 

• THE  REMAINING  ROUTINES  USE  THE  ABOVE 

• PROCEDURES  TO  ACCOMPLISH  COMMON  ROUTINES 

« 

• C0NVST0S8I NSAOOR  AND  OTHER  ROUTINES  WHICH 

• REFER  TO  AN  ADDRESS  PLACE  THE  RESULTS  IN 

• ThE  FIRST  TWO  BYTES  CF  THE  STACK  AS  AN  8080 

• ADDRESS  OUANTITY  WITH  LOW  ORDER  BYTE  FIRST 


ALL  INTERFACING  IS  DONE  USING  ABSOLUTE  AODR.  ♦ 

■* 

• ***«4«4*«*«««*»****«««4««4r*4****(’*«***»*4«««44****4**« 
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* * * 


00464  I 


OECLAPe 


00543 

00544 
00  545 
00  546 
00547 
00  548 
C0549 
C0550 

00551 

00552 

00553 

00554 

00555 

00556 

00557 

00558 
C0559 
CO  560 

00561 

00562 

00563 

00564 

00565 

00566 

00567 

00568 
C0569 
C0570 

00571 

00572 

00573 

00574 

00575 

00576 

00577 

00578 
_C0579 


00485 

1 

FI  NIT  LIT 

•O'  , 

/* 

INITIALIZE*/ 

00486 

1 

FSTR  LIT 

/* 

STORE  (ACCOM)*/ 

00487 

1 

FLGD  LIT 

'2'  , 

/* 

LOAD  ACCOM  */ 

C0488 

1 

FADO  LIT 

'3'  , 

/* 

ADD  TO  ACCOM  ♦/ 

C0489 

1 

FSU3  LIT 

■4'  , 

/* 

SUB  FROM  ACCOM*/ 

C0490 

1 

FMUL  LIT 

•5  • , 

/* 

MUL  BY  ACCOM*/ 

C0491 

1 

FDIV  LIT 

•6',  /*  DIVIDE  INTO  ACCOM*/ 

00492 

1 

FA8S  LIT 

•T*  , 

/* 

ABS  VALUE  OF  ACCOM*/ 

00493 

1 

FZRD  LIT 

■8'  , 

/* 

ZERO  ACCUM*/ 

00494 

1 

FTST  lit 

'9'  , 

/» 

TEST  SIGN  OF  ACCOM*/ 

C0495 

1 

FCHS  LIT 

' 10*  , 

/* 

COMPL.  ACCOM*/ 

00496 

1 

SORT  LIT 

•11', 

/• 

SORT  OF  ACCOM*/ 

00497 

1 

COS  LIT 

' 12', 

/ * 

COS  ACCOM*/ 

00498 

1 

SIN  LIT 

' 13*  , 

/* 

SIN  ACCOM*/ 

C0499 

1 

ATAN  LIT 

• 14*  , 

ARCTAN  ACCUM  */ 

C0500 

1 

CCSF  LIT 

•15', 

/» 

COSH  ACCOM*/ 

00  501 

1 

SlNh  LIT 

• 16* , 

/* 

SINH  ACCOM*/ 

00  502 

1 

EXP  LIT 

• 17', 

/* 

exponential  ACCOM*/ 

C0503 

1 

LOG  LIT 

• 18' ; 

/* 

LOG  ACCOM*/ 

00504 

1 

00505 

1 

00506 

1 

CHECKSOVERFLOVC  PROCEDURE 

00  507 

2 

DECLARE 

00  308 

2 

B BASED 

OVERFLOW  BYTE, 

C0509 

2 

MAXNUH  OATA{OFFH,07FH,OFFH,OFFH) 

C0510 

2 

IF  B THEN 

005U 

2 

DO; 

00512 

2 

CALL  WARNING! 'OF' ) ; 

00513 

3 

CALL  M0VE4! 

,MAXNUM,RA) ; 

00514 

3 

0=0; 

00515 

3 

END  : 

00516 

2 

END  ChECKSCVERFLQW; 

00517 

1 

00518 

1 

C0519 

1 

CCNViTOSBINARY:  PROCEDURE 

(A);  /-CC  VERTS  FP 

NUM  AT 

A TO  BINARY 

C0520 

2 

AND  RETURNS  RESULT  TO  A */ 

00521 

2 

DECLARE  A ADDRESS; 

00522 

2 

GOTC  ccnbin; 

00523 

2 

END  CCNVSTOSBINARY; 

00524 

1 

00  52  5 

1 

CONV$TO$FP:  PRCCEOURE ! A ) ; 

CONVERTS  BINARY  NUM  A1 

A TO  FP  AND 

00526 

2 

LEAVES  IT  AT  A 

*/ 

00527 

2 

DECLARE  A ADDRESS; 

00528 

2 

GOTO  CCNFP; 

00529 

2 

END  CONVSTOiFP ; 

C0530 

1 

00531 

1 

FPSINPUT;  PRCCEDLREILENGTH,A) ; /*  CONVERTS 

STRING  AT  A LENGTH  LENGTH 

00532 

2 

TO  FP  AMO  LEAVES 

RESULT  IN  FP  ACCOM 

*/ 

00  53  3 

2 

DECLARE  LENGTH  BYTE, 

A ADDRESS; 

00  534 

2 

GOTO  fpint; 

00535 

2 

END  FPlINPUT; 

00536 

1 

C0537 

1 

00538 

1 

FPSOUT:  PROCEOURE(A) ; /* 

CONVERTS  FP  ACCOM 

TO  STRING  AND  PUTS  IT 

C0539 

2 

AT  A ■•/ 

C0540 

2 

DECLARE  A ADDRESS; 

00  541 

2 

GOTO  FPCT; 

00542 

2 

END  FFSQUT; 

FPtOPSRETURN:  PfiCCEOU RE ( FUNC , A ) ; /*  PERFORMS  FUNC  AND  RETURNS  VALUE 
TO  A •/ 

DECLARE  FUNC  BYTE,  A ADDRESS; 

OOTC  fprtn; 

END  FPSOPSRETURN; 

FP$0P;  PROCEOUREiFUNC ,A) J /»  PERFORMS  FUNC  POSSIBLY  USEING 
FP  ,NUM  ADDRESSED  BY  A . NOTHING  IS  RETURNED  TO  A ■»/ 

DECLARE  FLNC  BYTE,  A ADDRESS; 

GOTO  ffnr; 

END  FFSOP; 

CONVSTOiBINlACCR:  PROCEDURE: 
call  CONVSTCSBINARYIRA) ; 

BRA  = BRA(3»; 

BKAU  ) = BRAI2)  ; 

END  CCNVtTOSBINtACDR; 

CNE$VALUE*OPS:  PRCCFDUREI A) ; 

DECLARE  A BYTE; 

CALL  FP$CP(FLOD,RA» ; 

CALL  FFAOP$kETURN(A,RA) ; 

CALL  CHECKSCVERFLCW; 

END  CNESVALUESCPS; 

TWOJVALUEtCPS:  FROCEDUREITYPE I : 

DECLARE  TYPE  BYTE : 

CALL  FP$0P(FL00,RA) ; 

call  FPJ0P$RETURN(TYPE,R8) ; 

CALL  POPSSTACK; 
call  CHECKSCVEPFLCW; 

END  T»OiVALUE$CFS ; 


17  3 


C0580  1 

00581  2 

00582  2 

00533  2 

Q058<i  2 

00585  2 

00586  2 

00587  I 

00588  1 

00589  2 

C0590  2 

00591  2 

0C592  2 

0C593  2 

0C599  1. 

00595  I 

00596  2 

00597  2 

00598  2 

CC599  2 

C0600  2 

0060 1 2 
00602  2 
00603  2 

00609  2 

00605  I 
C0606  I 

00607  I 

00608  I 

00609  I 

00610  I 


ROUNClCUNVtfllN:  PROCEDURE: 

DECLARE  CNEhALF  D AT  A ( 30H t 0 , 0 , 0 ) ; 
CALL  PUSESSTACK; 

CALL  M0VE9 ( .CNEHALF .RA) : 

CALL  TWC$VALLE$a?S(FAOOl ; 

CALL  CONVSTOtBINtAOOR; 

END  PCU.NOiCuNVieiN; 

FLOATSADDR:  PROCEDURE ( V ) : 

DECLARE  V ACCRESS; 

ARA=0: 

0RA(2)=HIGH(V);  8RA(3)=LOW(VI ; 
CALL  COAVSTC JFP(RA) ; 

END  FLOATSADDR; 

COMPARESFP:  PRCCEDURE  BYTE: 

/*  1=LESS  2=GREATEP  3=EQUAL  */ 
call  FPJ0P(FLC0,k3) ; 

CALL  FFSOP$RETUK.N(FSUB,RA)  ; 
IF  RASZERQ  THEN 
RETURN  3: 

IF  RASNEGATIVE  THEN 
RETURN  l; 

RETURN  2; 

END  CCMPARESFP; 


* 

* DYNAMIC  STORAGE  ALLOCATION  PROCEDURES 

*/ 

available:  PROCEDUREINBYTESI  ADDRESS: 

DECLARE 


NBYTES  AOORSSSt 

POINT  ADDRESS, 

TEHP  ADDRESS, 

TOTAL  ADDRESS, 

FERE  BASED  POINT  ADDRESS, 

S'^lITCH  BASED  POINT  BYTE; 

POINT  = MEASE; 

TOTAL  = 0; 

DO  RHILE  PCINT  <>  O; 

IF  SHITCHIA)  = 0 THEN 
DC; 

TOTAL  = TOTAL  + (TEMP  :=  HERE  - 
IF  NBYTES  <>  0 THEN 
DO; 

IF  NBYTES  > 5 <=  TEMP  THEN 
RETURN  POINT; 

END; 

END; 

PCINT  = HERE; 

END; 

IF  NBYTES  <>  0 THEN 

CALL  ERRCR( ' CM' ) ; 

RETURN  TCTAL; 

END  AVAILABLE; 

GETSPACE:  PRCCECURE(NBYTES)  ADDRESS; 

DECLARE 

NBYTES  ADDRESS, 

SPACE  ADDRESS, 


POINT  - 5) : 


ADDRESS  1 


DRESS, 
ADDRESS , 
BYTE, 
BYTE; 


SPACE  ADDRESS, 

FCINT  address, 

HERE  BASED  POINT  ADDRESS, 

TEMP  ADDRESS, 

TEMPI  address, 

TEMF2  ADDRESS, 

AORl  BASED  TEMPI  DRESS, 

ADR2  BASED  TFMP2  ADDRESS, 

SWITCH  EASED  POINT  BYTE, 

SWITCH2  BASED  TEMPI  BYTE; 

IF  NBYTES  = 0 THEN 
RETURN  0; 

PCINT  = AVAILABLE (NBYTES) ; 

/"LINK  UP  THE  SPACE*/ 

SWITCH(9)=I:  /*  SET  SWITCH  ON*/ 

TEMPI  = PCINT'-NBYTES  + 5; 

ADR1=H£RE; 

TEMP2=FER£  + 2; 

HERE.ADR2  = TEMPI; 

SWI rCH2(9)=0;  /*SET  REMAINDER  AS  AVAIL*/ 
TEMPI  = TEMPI  + 2; 

AORl  = PCINT; 

CALL  FILLIPCINT  :=  POINT  ♦ 5,0, MBYTES); 

RETURN  PCINT; 

END  GETSPACE: 

RELEASE:  P®CCEOLRE(SPACE ) ; 


DECLARE 


SPACE  ADDRESS, 

HOLD  ADDRESS, 

NfXTJAREA  BASED 

SWITCH  BASED 

FERE  BASED 

temp  ACDRE 

ACRS  BASED 


BASED 

ADDRESS, 

BASED 


hold 

SPACE 

SPACE 


ADDRESS, 

BYTE, 

ADDRESS, 

ADDRESS, 
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0O67<5  2 

C0680  2 

OOfcBl  2 

00682  3 

00683  3 

00684  3 

00685  3 

00686  4 

00687  4 

00688  5 

C0689  5 

CC690  4 

00691  3 

00692  2 

00693  2 

CC694  2 

00695  2 

C0696  2 

00697  2 

00698  2 

C0699  2 

CO  700  2 

00701  3 

00702  3 

00703  4 

00704  4 

00705  3 

00706  2 

00707  I 

CO  708  1 

CO  709  I 

00710  1 

00711  I 

00712  1 

00713  1 

00714  1 

00715  1 

00716  1 

00717  1 

C0718  1 

C0719  1 

00720  1 

00721  1 

00722  1 

00723  1 

00724  I 

00725  1 

C0726  1 

C0727  1 

C0728  1 

C0729  1 

C0730  1 

00731  2 

00732  2 

00733  2 

C0734  2 

00735  2 

00736  2 

00737  2 

C0738  2 

00739  2 

00740  2 

00741  2 

00742  2 

00743  2 

00744  2 

00745  2 

00746  3 

00747  3 

(0748  2 

CO  749  2 

00750  2 

00751  2 

00752  2 

00753  2 

C0754  3 

00755  3 

0075o  3 

00757  2 

C0758  2 

C0759  2 

C0760  1 

00761  1 

00762  1 

C0763  2 

00764  2 

00765  2 

C0766  2 

00767  2 

C0768  2 

C0769  2 

00770  2 

00771  3 

00772  3 

^0  773  2 


LOCK  BASED  TEMP  BYTE: 

UNLINK;  PROCEDURE; 

TEMP=h£RE  : 

IF  ADKSOO  THEN  /*NOT  AT  TOP  OF  FSA  */ 

DO  ; 

IF  L0CK(4)=0  THEN  /“SPACE  ABOVE  IS  FREE*/ 

00: 

TEMP=(HERE:=AORS)  ♦ 2; 

AURS=SPACE : 

END; 

END; 

END  UNLINK; 

HCL0,SPACE=SFACE-5: 

SWITCH(4)=0:  /*  RELEASES  THE  SPACE  */ 

/*  COMBINE  WITH  SPACE  ABOVE  AND  BELOW  IF  POSSIBLE*/ 

CALL  unlink; 

SPACE=SPACE+2:  /*  LOOK  AT  PREVIOUS  BLOCK*/ 

IF  (SPACE;  =FERE)O0  THEN 
DO; 

IF  SWITCH(4)=0  THEN 
DO; 

CALL  UNLINK; 

HOLD=SPACE : 

END  ; 

END; 

END  RELEASE: 

/* 

4141141*  4***  **  4c4t  ******************  ****  ******************** 


* * 

* ARRAY  ADDRESSING  PROCEDURES  * 

“ * 

* CALCSROW  SETS  UP  AN  ARRAY  IN  THE  FSA  IN  ROW  * 

* VAJOR  CROER.  THE  BYTE  OF  CODE  FOLLOWING  THE  * 

* CFERATOR  is  the  NUMBER  OF  OUENSIONS.  THE  ♦ 

* STACK  CONTAINS  THE  UPPER  BOUND  OF  EACH  DIMENSION  ♦ 

“ RA  holds  DIMENSION  N,  R3  DIMENSION  N-1  ETC.  • 

“ THE  LOWER  BOUND  IS  ALWAYS  ZERO.  ♦ 

“ * 

“ CALCSSUB  PERFORMS  A SUBSCRIPT  CALCULATION  FOR  “ 

* THE  ARRAY  REFERENCED  BY  RA.  THE  VALUE  OF  EACH  * 

* DIMENSION  IS  ON  THE  STACK  BELOW  THE  ARRAY  “ 

“ ADDRESS  STARTING  WITH  THE  NTH  DIMENSION  * 

* A CHECK  IS  MADE  TO  SEE  IF  THE  SELECTED  ELEMENT  ♦ 

* IS  OUTSIDE  THE  AREA  ASIGNED  TO  THE  ARRAY  “ 

* * 


♦ / 

CALCtRCW:  PRCCECLRE; 

DECLARE 

ASI2E  AODRESSt 

I 8YTE1 

SAVERA  ADDRESS, 

SAVERB  ADDRESS, 

ARRAYADOR  ADDRESS, 

NUMCIM  BASED  rC  BYTE, 

ARRAYPOS  BASED  ARRAYAOCR  ADDRESS; 

ASIZE  = 1;  /*  INITAIL  value  */ 

CALL  STEPilNSSCNT:  /«  POINT  PC  TO  NUMOIM  */ 

SAVERA  = RA;  /■*  SAVE  CURRENT  STACK  POINTER  */ 

SAVER3  = R8; 

00  I = I TC  NUMOIM;  /*  FIRST  PASS  ON  ARRAY  DIMENSIONS  */ 

ARA, ASIZE  = ASIZE  * (ARA  + U;  /#  DISPLACEMENT  AND  TOTAL  “/ 
CALL  PCPSSTACK;  /*  NEXT  DIMENSION  */ 

ENO; 

RA  = SAVERA;  /“  BACK  TO  ORIGINAL  STACK  POSITION  */ 

R8  = SAVcRB; 

SAVERA  .ARRAYADOR  = GE  TSP  AC  E ( T I ME  S4  ( AS  I ZS  ) + SHL  ( NUMO I 1 , I ) 1 ; 
ARRAYPOS  = NUMOIM;  /•  STORE  NUMBER  OF  OIM  “/ 

DC  I = I TO  NUMOIM;  /*  STORE  DISPLACEMENTS  */ 

ARRAYAOCR  = ARRAYADOR  21 
ARRAYPCS  = ARA; 

call  pcpsstack; 
end; 

CALL  PUShSSTACK;  /*  NOW  PUT  ADDRESS  OF  ARRAY  ON  STACK  */ 

ARA  = SAVERA; 

END  CALCSROW; 


CALCSSUB:  PRCCcCURE; 

DECLARE 

ARRAYAOCR  ADDRESS, 

ARRAYPOS  BASED  ARRAYADOR  ADDRESS, 
I BYTE, 

NUMOIM  BYTE, 

LCCATION  ADDRESS; 

INCtARRAYACCR:  PRCCEOURE; 

ARRAYACCR  = ARRAYADOR  H 1 + 1; 

END  INC SARRAYAOCR ; 
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• T307  74 

2 

arrayaocr  » ara: 

00775 

2 

CALL  PCPtSTACK; 

00776 

2 

LCCATIUN  = ara; 

00777 

2 

NUMOlrt  = ARRAYPOS; 

C0778 

2 

DC  I = 2 TO  NUMO(»'; 

00779 

2 

CALL  PCPSSTAC.C 

C0780 

3 

CALL  incaarrayaddr: 

00781 

3 

lOCATICN  = ARA  * ARRAYPOS  LOCATION; 

00782 

3 

END; 

00763 

2 

CALL  INCIARRAYAODR; 

00784 

2 

IF  LOCATICN  >=  ARRAYPOS  THEN 

00785 

2 

call  errcri ' S8* 1 : 

00786 

2 

ARA  = ARRAYAODK  ♦ 2 ♦ TI ME S4 ( LOG A TI ON  I 1 

00787 

2 

END 

CALCiSue; 

C0788 

1 

/* 

00789 

1 

00790 

1 

» 

♦ 

00791 

1 

■»  STCRE  PLACES  RA  IN  THE  PRT  LOCATION  REFERENCED 

* 

00792 

1 

♦ BY  R8.  RA  MAY  CONTAIN  A FLOATING  POINT  NUM8ER 

« 

00793 

1 

* CB  A REFERENCE  TO  A STRING. 

00794 

1 

* ir  the  CASE  OF  A STRING  THE  FOLLOWING  IS  ALSO 

00795 

1 

* PERFORMED: 

00796 

1 

♦ (11  IF  THE  PRT  CELL  AlREAOY  CONTAINS  A 

0 0 797 

1 

* REFERENCE  TO  A STRING  IN  THE  FSA  THAT 

00798 

1 

* STRING’S  COUNTFR  IS  DECREMENTED  AND  IF 

C0799 

1 

* E3UAL  TO  1 THEN  THE  SPACE  IS  FREED 

00300 

1 

♦ (2)  THE  NE.V  STRINGS  COUNTFR  IS  INCREMENTED 

« 

00801 

1 

* IF  IT  IS  Already  255  then  a copy  is  made 

00802 

1 

* AND  THE  NEW  COUNTER  SET  TO  2. 

« 

00803 

1 

« 

00304 

1 

00805 

1 

*/ 

C0306 

1 

00607 

1 

STORE:  PROCEDURE (TYPE ) : 

coaoa 

2 

DECLARE 

C0809 

2 

TYPE  BYTE, 

coaio 

2 

PTRADCR  ADDRESS, 

ooaii 

2 

PTR  address, 

STRIiNGACDR  BASED  PTRADOR  ADDRESS, 

00812 

2 

00813 

2 

COUNTER  BASED  PTR  BYTE; 

00814 

2 

CALL  SET$DATA$ADDR(RB) ; 

IF  TYPE  then  /♦  STORE  STRING  »/ 

00815 

2 

C08  16 

2 

00!  , , , 

00817 

2 

CALL  FLAGSSTRING$AOORIO) ; /*  SET  TEMP  STRING  OFF 

<■/ 

00818 

3 

PTRAOOR  = ARB;  /*  CAN  Wc  FREE  STRING  DESTINATION  POINTED 

C0819 

3 

IF  INSF SA( STRINGAOCR)  THEM  / * IN  FSA  »/ 

C0820 

3 

DJ : 

00821 

3 

PTR  = STRINGADOR  - 1; 

00822 

4 

IF(C00NT6R  :=  COUNTER  - 1)  = 1 THEN 

00  623 

4 

CALL  RELEASEISTRINGADDR) : 

00024 

4 

END; 

00825 

3 

IF  INJFSAIPTR  :=  ARA  - U THEN  /*  INC  COUNTER  <■/ 

00326 

3 

DO  : 

00827 

3 

IF  COUNTER  = 255  THEN  /•  ALREADY  POINTED  TO 

BY 

00828 

4 

254  VARIABLES  */ 

C0829 

4 

o 

o 

C0330 

4 

PTR  = PTR  «•  l: 

00  831 

5 

CALL  MQVE(PTR,ARA  :=  GE T S PAC E ( COUNTER 

00832 

5 

COUNTER  ♦ 1) ; 

00833 

5 

PTR  = ARA  - l; 

00834 

5 

end; 

C0835 

4 

COUNTER  = COUNTER  + 1; 

00836 

4 

END; 

00837 

3 

END; 

00838 

2 

CALL  M0VE4(RA,ARB) ; 

C0839 

2 

END  STORE; 

C0840 

1 

/♦ 

0034  1 

1 

00  842 

1 

•* 

00843 

1 

♦ BRANCHING  ROUTINES 

00844 

1 

« 

00  845 

1 

00846 

1 

♦ / 

00647 

1 

00848 

1 

UNCONCiafiJiNCH;  FRGCEDURE; 

00849 

2 

RC  = RC  ♦ ARA  - l; 

00850 

2 

CALL  pcpjstack; 

00851 

2 

END 

LNCONOidRANCH; 

00852 

1 

00653 

1 

00854 

1 

CCNOIERANCH:  PROCEDURE; 

C0855 

2 

IF  R812EB0  THEN 

00856 

2 

call  unccndsbranch; 

00657 

2 

ELSE 

C0858 

2 

CALL  PCPSSTACK; 

C0859 

2 

CALL  POPISIACK; 

C0860 

2 

END 

CCN0J8RANCH; 

0086  1 

1 

00862 

1 

00863 

1 

AaSOLUTEtBRANCH:  PROCEDURE: 

00864 

2 

CALL  STEPJINSSCNT; 

C0865 

2 

RC  =•  TWOBYTECPRAND: 

00866 

2 

return; 

00867 

2 

END 

absolutesbranch; 

00668 

1 

/• 

CO069 

1 

«.C0870 

1 

% 
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00371  I 

00872  I 

00873  1 
1 

C0675  1 

00876  I 
00677  2 

00878  2 

00879  I 

00880  I 

00881  2 
00882  2 

00883  2 

00884  1 

00885  1 

00886  1 

00887  2 

00888  2 

C0389  2 

00890  2 

00891  2 

00892  2 

0C393  2 

00894  1 

C0895  I 
00696  2 

00897  2 

00893  2 

C0899  2 

C0900  2 

00901  2 

CC902  2 

00903  2 

00904  1 

00905  I 

00906  1 

C0907  2 

00908  2 

CO  909  2 

C0910  2 

00911  2 

00912  2 

00913  2 

00914  2 

C0915  2 

00916  2 

00917  2 

00918  2 

C0919  2 

C0920  2 

00921  2 

00922  2 

00923  2 

00924  2 

00925  2 

C0926  3 

00927  3 

00928  2 

C0929  2 

C0930  2 

00931  3 

00932  3 

00933  3 

30934  2 

00935  2 

CO  93  6 2 

00937  2 

00938  2 

C0939  2 

C0940  2 

00941  2 

00942  2 

C0943  2 

■30944  2 

CO  94 5 2 

C0946  2 

00947  2 

C09*,a  2 

C0949  1 

C0950  I 
00951  I 
C0952  2 

00953  2 

00954  2 

00955  2 

C0956  2 

00957  2 

00958  2 

C0959  2 

00960  2 

00961  2 

00962  2 

00963  2 

00964  2 

00965  2 

00966  2 

00967  2 

00963  2 

.C0969  2 


• GLOBAL  STRING  HANDLING  ROUTINES  ♦ 

* » 


CHECKJSTRIMGIAODP;  PRCCEOURG  BYTE; 

RETURN  3RA12): 

END  C8£CKiSTRING»A00R; 

STRINGSFREE:  PRCCEOUREl 

IF  CHEC <$STR 1NG3AC0R  THEN 
CA. L RELEASE (ARA) ; 

END  STRINGiFREE; 

GET$STRING$LEN:  PROCFDURE(X)  BYTE; 

DECLARE 

X ADDRESS, 

A BASED  X 3YTE; 

IF  X 3 0 THEN 
RETURN  O; 

RETURN  A; 

ENO  GETiSTR  INGiLEN; 

CCMPtFIX:  PRCCECLREI FLAG) ; 

CECLARE  flag  BYTE, 

PlMSCiNE  DATA(31H,80H,0,0); 

CALL  PCPiSTaCX; 

IF  FLAG  TFEN 

CALL  MCVE4(.MINUS0Nc.RA) ; 

ELSE 

ERA  = o; 

ENO  CCPPJFIX; 

CONCATENATE:  PRCCEDURE; 

/* 

» TFE  STRING  POINTED  TO  BY  RA  IS  CONCATENATED  ♦ 

• Tc  the  string  pointed  to  by  rb  and  the  pointer  ♦ 

♦ TC  the  RESULT  IS  PLACED  IN  R3.  THE  STACX  IS  POPPED* 

* AND  THE  RESULT  IS  FLAGGED  AS  A TEMPORARY  ♦ 

* STRING.  * 

« « 

*/ 

DECLARE  FIRSTSTRI NGLENGTH  BYTE, 

SECCNOSTR  INOLENGTH  BYTE, 

NERSTRINGLENGTH  BYTE, 

NERSTRINGADDRF.SS  ADDRESS, 

LENGTH  BASED  NE WS TRl NGAOORESS  BYTE: 

IF  RA$2ERO$AODRESS  THEN  /»  IT  OOESiNT  MATTER  WHAT  RS  IS  */ 

DO; 

CALL  POPiSTACX; 

return; 

ENO; 

IF  RBiZEBOJ ADDRESS  THEN  /*  AS  ABOVE  BUT  RESULT  IS  RA  ♦/ 

DO; 

CALL  MCveSRASRB; 

CALL  POPiSTACX; 

return; 

end: 

NEWSTRIN_  iNGTH  = ( SECONOSTR INOLENGTH  :=  GETSTR INGLEN (ARA ) ) 

* (FIRSTSTRI NGlENGTH  :=  GE TSTR I NGL E N I AR 8 ) + 1); 

IF  CARRY  THEN 

CALL  ERROR ( ' SL ' ) ; 

CALL  MOVE! ARB .NEWSTRINGACORESS  :=  GE T S PACE ( NEW STR I NGL ENGT H ) , 
FIRSTSTRINGLENGTH)  ; 

CALL  MOVSIARA  ♦ 1 , NEwS TR I NG ADOR £S S * F 1 RS T S TR I NGL ENGT H, 
SECCNOSTRInGLENGTH) ; 
call  STRINGFREE; 

CALL  POP'TACK: 
call  STRINGFREE; 

ARA  = NEwSTRlNGAOORESS ; 

LENGTH  = NEWSTR INGLENGTH  - 1; 

CALL  FLAGSSTRINGiADDRITRUE) ; 

ENO  CONCATENATE; 

CCMPARESSTR  ING:  PROCEDURE  BYTE; 

/♦ 

♦ ♦ 

* THE  STRING  POINTED  TO  BY  RB  IS  COMPARED  TO  * 

* THE  STRING  POINTED  TO  BY  RA.  * 

* RB  RELATION  RA  * 

* IF  RB  < RA  THEN  RETURN  I * 

A IF  RB  > RA  the  return  2 * 

* IF  R8  = RA  THEN  RETURN  3 * 

* TWO  STRINGS  ARE  EWUAL  IF  AND  ONLY  IF  THE  TWO  • 

* STRINGS  HAVE  TrtE  SAME  LENGTH  AND  CONTAIN  * 

* identical  characters.  THE  ASCII  COLLATING  * 

* SECUENCE  IS  USED  tq  DETERMINE  THE  RELATIONSHIP  * 

* BETWEEN  EwUAL  LENGTH  STRINGS.  IF  TWO  STRINGS  * 

* ARE  NOT  OF  E30AL  LENGTH  THE  SHORTER  IS  ALWAYS  » 

* LESS  then  the  LONGER  ONF.  ALL  NULL  STRINGS  ARE  • 

* EwUAL  AND  less  THEN  ANY  GThCR  STRING.  » 
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« « 


CECLARE  FIRSTSTRING  ADORESS. 

SECCNDSTRING  ADORESSi 
t BYTE, 

TE.MRLEr^GTH  flYTE. 

CHARSTRINGI  SAScD  FIP.STSTRING  8YTE, 

ChARSTRlNG2  BASED  SECONDSTRING  3YTE; 

/*  FIRST  HANDLE  NULL  STRINGS  REPRESENTED  BY  RA  AND  Oft  RS 
cCUAL  TC  2EFO  »/ 

IF  RAiZcRCSACORESS  THEN 
S£CCNOSTRING=  RA: 

ELSE 

SECCNDSTRING  = ARAS 
IF  RBiZERQSAOCRESS  THEN 
FIRSTSTRING  = RB{ 

ELSE 

FIRSTSTRING  = ARB; 

TEMPLENGTH  = CH  Aft  ST  .<  I NGl ; 

CO  I = 0 TO  TEMPLENGTH; 

IF  CHARSTRINGl  < CHARSTRING2  THEM 
RETURN  l; 

IF  CHARSTRINGl  > CHARSTRIN62  THEN 
RETURN  2: 

FIRSTSTRING  = FIRSTSTRING  > 1; 

SECONDSTRING  = SECCNDSTRING  + ll 
END  ; 

RETURN  3; 

END  CCNPARE $STR ING; 

STRINGtSEGMENT;  PROCc DURE ( T YP E > ; 

DECLARE 

LEFT  LIT  'O', 

RIGHT  LIT  ' 1' , 

MIC  LIT  '2': 


DECLARE 


TYPE 
TEN  PA 


BYTE, 

ADDRESS, 


TEMFA2  ADDRESS 


TEHPBl  BYTE, 


BASED  TEMPA  BYTE, 


I • • I 

> I 


INCIBRA:  PRCCEDURE  BYTE: 

RETURN  ERA  + 1; 

END  INCjeRA; 

TEMPBl  = O; 

IF  TYPE  = MID  THEN 
DO; 

CALL  FLIP; 

IF  RA$N£GATIVE  OR  RASZERO  THEN 
CALL  ERROR! 'SS') : 

CALL  CONV$TJ$3INiAOOR; 

TEMPBl  = bra: 

CALL  popsstack: 

EMC; 

IF  RAtNEGATIVE  OR  ITEMPBl  > GETS T ft  I NG$L EN ( AP B ) ) OR  RASZERO  THEN 
DO; 

CALL  popsstack; 

CALL  stringfree; 

ARA  = O; 

return; 

end: 

CAlL  CONVSTOIBINSADOR ; 

IF  BRA  > (L.NG2  :=  GETST  RI NG  SLEN  ( ARB ) - TEMPBl)  THEN 
DO  ; 

IF  TYPE=MID  THEN 

BRA  = LNG2  > 1; 

ELSE 

BRA  = LNG2; 

END; 

IF  TYPE  = LEFT  THEN 
TEMPA2  = ARB; 

ELSE 

IF  TYPE  = RIGHT  THEN 

TEMPA2  = ARB  H LNG2  - BRA; 

ELSE 

TEMPA2  = ARB  + TEMPBl  ^ 1: 

CALL  MOVS(  TEMPA2, (TEMPA  ;=  Gc TS PACE (I MCS 3R/U  }, 1\C S3RA I ; 

lng  = bra; 
call  popistack; 
call  stiingfree; 

ARA  « TEMPA; 

call  FlAGSSTR INGSADDRITRUE) ; 

EMC  s trin>,ssegment; 


L .'GICA.;  ?o.;CECURE(TYPE)  ; 

.r-.LAJt 

TYPE  byte, 

I BYTF; 

ilL  .'-NylT -tOINARY(RA)  ; 

, » ' , - > J M 

A LL  C W NY  STU  SB INARYI RB  ) ; 


00  I = 0 TC  3; 

00  CASE  TYPE : 
dSA(I)  = 


BPeU  I = 8RA 
ese( 1 1 = BRA 
8RSU)  = BRA 

END: 

END;  /*  OF  DC  TWICE  ♦/ 
IF  TYPE  > 0 THEN 

CALL  pcpsstack: 
CALL  CONV$TQ$FP(RA» I 
END  LOGICAL  ; 


NOT  BRA  I I ) ; 

8RAI I I AND  8R8I I ) ; 
BRA  ( n OR  6RB(  n ; 
BRAI  I ) XOR  6R8I I ) ; 


«****««««« **««««*««««***  ««**««****4<««  «««**«««*»« 

* 

* CONSOLE  OUTPUT  ROUTINES 

# 

»/ 

NUMER1C$0UT:  PRCCEDURE; 

♦ 

* TFE  FLOATING  POINT  NUMBER  IN  RA  IS  CONVERTED  TO 

» AN  ASCII  character  STRING  AND  THEN  PLACED 

* IN  The  WORnBUFFER.  the  length  of  the  STRING 

* SET  TO  the  first  byte  OF  THE  BUFFER 

*/ 

CECLARE 

I BYTE;  /*  INDEX  */ 

CALL  FP SOP { FLOO ,RA)  ; /»  LOAD  FP  ACCOM.  WITH  NUMBER  FRCM  RA  */ 

CAUL  FPiCUT ( .PRINTWORXAREAI 1) ) ; /*  CONVERT  IT  TO  ASCII  */ 

/*  RESULT  IN  PRINTWCRKAREA  PLUS  1 */ 

1 = o; 

DC  WHILE  PRINTWCRKAREA! I :=  I + 1)  <>  ' •; 

ENO; 

ARA  = .PRiNTwORKAREA; 

PRINTWOPKAREA  = I; 

ENO  NOMERICiCLT; 

CLEARSPRINTSBUFF;  PROCEDURE; 

CALL  FILL! ( PRINT3UFFER  PR  I NT BUFF ERLOC 1 . • ',72); 

ENO  CLEARSPRINTSBUFF; 


DUMPSPRINTSBL'FF  ; PROCEDURE; 

DECLARE 

TEMP  ADDRESS, 

CHAR  BASED  TEMP  BYTE; 

TEMP=PRINT8LFFEN0; 

CO  WHILE  CHAR  = ' • ; 

TEMP=TEKP  - 1 ; 

END; 

CALL  CRLF; 

CO  PRINT8UFFER  = PR  INT BUFF ERLOC  TO  TEMP; 

CALL  PRINTCHAR(PRINTPQS) : 

END; 

CALL  CLEARSPRINTSBUFF; 

ENO  OUMPSPR  INT$8L'FF  ; 

WRITESTOSCONSCLE:  PRCCEDURE; 

CECLARE 

HCLO  ADDRESS, 

H BASED  HOLD  BYTE, 

INCEX  BYTE; 

IF  !HOLD  :=  ARA)  <>  0 THEN  /*  MAY  BE  NULL  STRING  */ 

DG  INCEX  = I TO  H; 

FRINTPOS  = HI  INDEX) ; 

IF  IPRINTBUFFER  :=  PRINTBUFFER  ♦ 1)  > 
PRINTBUFFENO  THEN 
CALL  0UMPPRINT8UFF; 

END; 

END  WR  ITESTCSCONSGLE : 


FILE  PROCESSING  ROUTINES  FDR  USE  WITH  CP/M 


INI TIALI ZESOISKSBUFFcR:  PROCEDURE; 

call  F I LLI buffer, EOFFILLER,  128 ) : 
END  INITIALIZESOISKS30FFER; 


BUFFERSSTATL'SBYTE : PROCEDURE  3YTE: 
return  FC8I33); 

ENC  blffersstatlssbyte; 
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-if  ««#« 


01164 

01 165 

01166 

01167 

01168 
C1169 
Cl  170 
0117  1 
01172 
01  173 
01  174 

01175 

01176 

01177 
01  178 
C1179 
Cl  180 
01181 
01182 

01183 

01184 
C1185 
01186 

01187 

01188 
01189 
Cl  190 
0119  1 
01  192 

01 193 

01194 

01 195 
C1196 

01 197 

01198 

01199 
C1200 
01201 
01202 

01203 

01204 

01205 

01206 

01207 

01208 
01209 
C1210 
01211 
01212 

01213 

01214 

01215 

01216 

01217 

01218 
C1219 
C1220 
01221 
01222 

01223 

01224 

01225 

01226 
0 1227 
01228 
01229 
C1230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01238 

01239 
C1240 

01241 

01242 

01243 
01294 

01245 

01246 

01247 
C1248 
C1249 

01250 

01251 

01252 

01253 

01254 

01255 
0l25o 

01257 

01258 
>C1259 


SeTt6UFFER$STATljS$HYTE;  PROCEDURE  ( S TA  TUS ) ; 

CECLARE  STATES  BYTE; 

FC8(33)  = STATUS: 

END  SET»8UFFERiSTATUS$aYTE: 

WRITESMARK:  PROCECURE  BYTE: 

RETURN  aUFFER$STATUS$8YTE ; 

END  WRITEJMARK; 

SET$WRiTE$MARK : PROCEDURE: 

CALL  SET$8UFFER$STATUSiBYTE(BUFFER$STATUS$0YTE  OR  OlH): 

END  SETSURI TEMARK; 

CLEAR$WRITE$MARK:  orocEDURE; 

CALL  SFT$3UFF£„$STATUS$8YTE(BUFFER$STATUS$BYTE  and  OFEH): 

END  CLEAR$WR1T£$MARK: 

ACTIVESBUFFER:  PROCEDURE  BYTE: 

RETURN  SHR(eUFFER$STATUS$3YTEtl) : 

END  ACTIV=$euFFER: 

SET$3 OFFERS  INACTIVE : PROCEDURE; 

CALL  SETiBUFFERSSTATUSSBYTEieUFFERSSTATUSSBYTE  AND  OFDHI; 

END  SETSBUFFERSINACTI VE; 

SETSBUFFERSACTIVE:  PROCEDURE: 

CALL  SET$5UFFF.RSSTATUS6SYTE(6UFF£R$STArUS$BYTE  OR  02H); 

END  SETSBUFFERSACTIVE : 

SETSRANOONSMODE : PROCEDURE; 

CALL  SET$3UFFER$STATUS$8YTE(3UFFER$STATUS$8YTE  OR  80H); 

END  SETSRANCCMSMCDE ; 

RANOORSNOOE : PROCEDURE  BYTE: 

RETURN  RCL( EU FF ER SST ATUSSb YTE , 1 ) ; 

END  RANCOMSFCDE; 

OISKSEOF:  PROCEDURE; 

IF  EOFADDR  = 0 THEN 

CALL  ERROR!  ' EF'  ) : 

RC  = EOFADDR  + 1: 

RA  = ecfra; 

RB  = ecfrb: 

r,OTC  ECFEXIT;  /*  DROP  CUT  TO  OUTER  LOOP  =»/ : 

END  OISKSEOF; 

FILLSFILESBUFFEB:  PROCEDURE; 

CECLARE  FLAG  BYTE: 

IF!FLAG  :=  DISKREAD)  = 0 THEN 
DO  ; 

CALL  SETSBUFFERSACTIVE : 

RETURN; 

END; 

IF  FLAG  = 1 THEN 

CALL  OISKSEOF; 

RE  TURN  : 

Ir  NOT  RANOCI'SMOOE  THEN 
CALL  ERROR! • CR*  » : 

call  initialuesdisksbuffer; 

CALL  SETSBUFFERSACTIVE; 

return; 

END  FILLSFILESBUFFER; 

WRITESDISKSIFSREC:  PROCEDURE; 

IF  WRITESMARK  THEN 
DC ; 

IF  CISKWRITE  <>  0 THEN 
CALL  ERROR! 'DW* I ; 

call  clearswritfsmark; 

IF  RANCOMSMODE  THEN 

CALL  SETSBUFFERSINACTI VE; 

ELSE 

CALL  initializesdisksbuffer; 

END; 

RECCROSPCINTER  = BUFFER; 

END  wRiTESOISKSIFSREQ; 

ATSENOSOISKSeuFFER:  PROCEDURE  BYTE; 

return  ! RECCP.DSPO  INTER  :=  RECORD  SPO  IN  T ER  ♦ 1)  >=  BUFFERSENO; 
END  ATSENOSOISKSeuFFER; 

VARseLOCKSSIZE:  ORCCEDURE  BYTE: 

RETURN  oLOCKSIZc  <>  0: 

END  VARSBLOCKS 1 ZE : 
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01260 

0L261 

01262 

01263 

01264 
0126b 
01266 
01267 
01263 
C1269 
U270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 

01278 
C1279 
C1280 
01281 
01282 

01283 

01284 

01285 

01286 
01287 
Cl  28  8 
01289 
C1290 

01291 

01292 

01293 

01294 

01295 
C1296 
01297 

0 L298 
C1299 
C1300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 

01308 

01309 
C1310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01318 
C1319 
C1320 

01321 

01322 

01323 
C1324 

01325 

01326 

01327 

01328 

01329 
C1330 

01331 

01332 

01333 
C1334 

01335 

01336 

01337 

01338 
C1339 
C1240 

01341 

01342 

01343 

01344 

01345 

01346 

01347 

01348 
C1349 
C1J50 

01351 

01352 

01353 

01354 

01  355 
01356 

__01357 


1 

2 

2 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 

2 

3 

3 

2 

2 

2 

1 

1 

1 

2 

2 

2 

2 

1 

1 
1 

2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
2 
2 
1 
1 
1 
2 
2 
2 
3 
3 
2 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


STC8E1RECSP7R:  FPCCEfJUREj 

FCbAOJl ’ 8) =RECOROJrQlNTER; 

EMO  STCRciRtCSPTR; 

WRITEiASBYTE:  PFOCcOU RE ( CHAR ) ; 

CECLARE  CHAR  BYTE : 

IF  VARSBLOCKtSl  Zr  ANO  ( BYT  ESV.R  I TTEN  :=  3YTESWRITTEN  ♦ 1) 
> BLOCKSIZE  then 
CALL  EFFCRl ' ER*  ) I 
IF  ATSENOiO  ISKSaUFFER  THEN 

CALL  WRITESO tSKSIFSREQ  ; 

IF  NOT  ACTI VESBUFFER  ANO  RANDCMSMCOE  THEN 
DO  ; 

CALL  FILLiFiLEiaOFFER  ; 

FCB132)  = FCBI32)  - Ij  /♦  RESET  RECORD  NO  ♦/ 

ENOi 

NEXTOISKChAR  = CHAR; 

CALL  ScTiwRITESMAKK; 

END  WRITEiA  18YTE  ; 


GETSFILE$NUM8ER:  PROCEDURE  BYTE: 
IF  8RA  > NUMFILES  THEM 
CALL  ERRCRC  MF*  ) ; 

RETURN  8RA; 

END  GET$FI LESNUyBER: 


SETSFILESADCR:  PRGCEOURE; 

CECLARE  CURRENTFILE  BYTE; 

FILEAOOR  = FILES! CURRENTFI LE  :=  GET  IF  I LE SNUMBER 1 ; 
ECFADOR  = ECFBRANCHICURRENTFILE  ) ; 

END  SETiFILESAOCP  ; 


S£TSFILE$P0INTERS:  PRCCEDURE: 

eUFFERSENO  = (BUFFER  :=  FILEADDR  + 38)  + 128; 
RECGPDPCINTER  = FC3AD0(18); 

3LCCK.SIZE  = FC8A0C(17); 

CALL  SETC.-'A; 

END  SETtFILSSPCINTERS; 


SETUP$FILc$EXTtNT:  PRCCEOURE; 

IF  OPEN  = 255  THEN 
DO; 

IF  MAKE  = 255  THEN 

CALL  ERROR! 'ME' ) ; 

ENC; 

ENO  SETUPSF  ILESEXTENT  ; 


OiSKSCPEN:  PROCEDURE; 

/♦OPENS  TFE  FILE  - RA  CONTAINS  THE  ADDRESS  OF  THE  FILE  NAME 
ANO  R8  CONTAINS  THE  BLOCK  SIZE. 

TFE  ARRAY  FILES  WILL  HOLD  THE  ADDRESS  OF  THE  FILE  CONTROL  BLOCK 
IN  THE  rSA.  the  FC3  IS  FOLLOWED  3Y  3 FLAGS  - BLOC K S I ZE ( AOCR ) 
RECORD  POINTER! AOCfi) , WRITE  FLAGIoYTE).  THIS  IS  FOLLOWED  BY  THE 
128  BYTE  BUFFER  TO  DO  FILE  I/Q.»/ 


CECLARE 


FILENAME  ADORESSi 
NEXTFILE  BYTE, 


duff 

CHAR 

I 

J 


ADDRESS, 
BASED  BUFF 
BYTE, 

BYTE: 


BYTE, 


INCSJ:  PROCEDURE  BYTE; 

RETURN  (J  : = J + 1) ; 
END  INCIJ; 


NEXTFILE  = C; 

CO  WHILE  FILESINSXTFILE  :=  NEXTFILE  ♦ 1 1 <>  0 
END; 

FILEADOR,FILES(NEXTFlLE)  = GE TS P ACE ( 1 66 ) : 
BLFFcR  = FILEAOOR  ♦ 33; 

CALL  SETCMA; 

CALL  FlLL((FILENAM6:=FlLcA00R+ll  , • 

0UFF=4RA ; 

IF  CHAR !2)  = ' : ' THEN 
DO; 


FC8 
I = 
6LFF 


= CHAR(l)  ANO  OFH 
CHAR  - 2: 

= BUFF  ♦ 2: 


end; 

ELSE 


I = CHAR; 

IF  I > 12  THEN 
I = 12; 

BLFF  = 8UFF  + 1 ; 

J = 255; 

CO  WHIL£(CFAP(INC1J»  <>  >.')  ANO  !J  < I); 


END; 

CALL  MOVEIBUFF, FILENAME, J) ; 

IF  I > INCIJ  then 

CALL  MCVE  (.CHAR(J)  .FILENAME  8 , I - J ) 
CALL  SE TUPlFlLtSEXIENT; 
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-01358 

C1359 

Cl3o0 

01361 

01362 

01363 
C1364 
C1365 

01366 

01367 

01368 
C1360 
C1370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 
C1378 
01379 
C1380 

01381 

01382 

01383 
013S4 

01385 

01386 

01387 
01308 
C1389 
C1390 

01391 

01392 

01393 

01394 

01395 

01396 

01397 

01398 
C1399 
C1400 
01  401 

01402 

01403 

01404 

01405 

01406 

01407 
C1408 
Cl  409 
01.410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 
C1418 
01419 
C1420 

01421 

01422 

01423 

01424 

01425 

01426 

01427 
Cl  42  8 
01429 
C1430 

01431 

01432 

01433 

01434 

01435 

01436 

01437 
C1438 

01439 

01440 

01441 

01442 

01443 

01444 
0 1445 

01446 

01447 

01448 
C1449 
C1450 

01451 

01452 

01453 

01454 


rC3A00(  18l=FacA0CR  + 256: 
CALL  popsstack; 

FCQAOOl  17)  = ARA; 

CALL  POPSSTACK; 

END  OISKSOPEN; 


Sctsecfsstack;  frcceoure; 

EQFRA  = RA; 

E0FR8  = RB; 

END  ScTSEOFiSTACK; 


SETUPSOISKS IC:  FRCCEOURE; 


CALL  setsfilesaoor: 

IF  FILEACOR  = 0 THEN 

call  ERROR! ■ FU* ) ; 
CALL  SETiFiLESPQINTERS; 
BYTESi'"RITTEN=0; 
FIRSTFIELD  = TRUE; 

CALL  popsstack; 

END  SETUPSOISKSIG; 


RANCC.’^SSETUP:  PRCCEOURE; 
DECLARE 

BYTtCGUNT-  ADDRESS, 
RECCRO  ADDRESS, 
EXTENT  BYTE; 


IF  NOT  VARSBLCCKSSIZE  THEN 

call  errcki *ru' ) : 

IF  RASZERO  CR  RASNEGATIVE  THEN 
CALL  ERROR! > IR' ) ; 

CALL  CQiNVSTQlBINSAOOR; 

ARA  = ASA  - l: 

CALL  SETJRANDCMiMCOE ; 

call  setsbuffersinactive; 

CALL  WRlTtJOISKSIFSREO; 

BYTECCUNT  = BLGCKSIZE  * ARA: 
RECCROPCINTER  = I BYTECCUNT  AND  7FH1 
CALL  STCRESRECSPTR; 

RECORD  = SHR!6YTEC0UNT,7); 

EXTENT  = SHR(REC0R0,7) ; 

IF  EXTENTOFCB!  12)  THEN 
DO; 

IF  CLOSE  = 255  THEN 

CALL  ERROR! 'Cc') ; 
FCB112)  = EXTENT: 

CALL  S£TUPiFIL=$EXTENT; 

ENC  : 

FCB!32)  = LCWlRECORO)  AND  7FH: 

CALL  POPSSTACK; 

END  RANUOHSSETUP; 


+ BUFFER  - l! 


GETSDI SKSCHAR:  PROCEDURE  BYTE; 

IF  ATSENOSOISKSBUFFER  THEN 
00; 

CALL  writesoisksifsreq; 

CALL  FILLSFILESBUFFER; 

end: 

IF  NOT  jCTIVESBUFFER  THEN 

CALL  F ILLSFI  LESBUFF'.R; 

IF  NEXTDISKCFAR  = EOFFILLER  THEN 
CALL  DISKSEOF; 

RETURN  NEXTCISKCHAR; 

END  GETSOISKSCFAR ; 


WRITESTOSFILE:  ppocequreitypf ) ; 

/»  TYPE  0 means  write  A NUMBER 
CECLARE 

I BYTE, 

POINT  ADDRESS, 

CHAR  BASED 
CCUAT  BYTE, 

TYPE  BYTE, 

NUMERIC  LIT 
STRING  LIT 


1 MEANS  A STRING*/ 


POINT  BYTE, 


INCSPOINT:  PROCEDURE: 

POINT  = POINT  + l; 
END  INCSPOINT; 


IF  TYPE  = NUMERIC  THEN 
call  N'JMEF.ICOUT; 

IF  NOT  FIRSTFIELD  THEN 

call  writesasbytei  ' , ' ) ; 

ELSE 

FIRSTFIELD  = FALSE; 

PCINT  = ARA; 

CCLNT  = CHAR; 

IF  TYPE  = NUMERIC  THEN 
COUNT  = COUNT  - l; 

ELSE 

CALL  WRITESASBYTEIQUOTE) : 
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1 


01A55 

2 

CALL  INCtPCtNf; 

01456 

2 

DC  I = 1 TO  COUNT  ; 

01457 

2 

IF  CHAR  = QUOTE  THEN 

01458 

3 

call  Ekrchi *qe ' ) ; 

C1459 

3 

CALL  WklTESASbYrEICHAR) ; 

C14o0 

3 

CALL  INCiPUINT; 

01461 

3 

END  ; 

0 1462 

2 

IF  TYPE  = STRING  THEN 

01465 

2 

DO  ; 

01464 

2 

CALL  WRITESASBYTEIQUOTE); 

01465 

3 

CALL  STBINGiFREE; 

01466 

3 

END  ; 

01467 

2 

CALL  POPSSTACK; 

01468 

2 

END 

kRITESTQiFILE; 

01469 

1 

C1470 

1 

01471 

1 

DIS6$CLQSE;  PROCEDURE; 

01472 

2 

CALL  SETIFILEIPOINTERS; 

01473 

2 

CALL  WR  I TEiCISKil FSREO; 

01474 

2 

IF  CLOSE  = 255  THEN 

01475 

2 

CALL  ESRCR('CE'): 
CALL  releaseifileaddri  : 

01476 

2 

01477 

2 

END 

Cl  SKSCLOSE ; 

01478 

1 

01479 

1 

CLOSEFILES;  PRGCEOURE: 

01480 

2 

DECLARE  I BYTE; 

01481 

2 

I = o; 

C1482 

2 

DO  WHILEII  ; = I-H)  < NUMFILE5: 

IFIFILEAODR  :=  FILESIlJl  <>  0 THEN 

01463 

2 

01484 

3 

CALL  OiSKCLOSE; 

01485 

3 

ENO; 

01486 

2 

END 

CLOSEFILES; 

01487 

1 

C1488 

1 

/* 

01489 

1 

01490 

1 

4 

« 

01491 

1 

♦ R0UTIN6  TO  EXIT  INTERP 

« 

01492 

1 

♦ 

4 

01493 

1 

01494 

1 

*/ 

01495 

1 

eXITSINTERP:  PPCCEOURE: 

01496 

2 

CALL  CLOSEFILES; 

01497 

2 

CALL  OUMPtPRINTSBUFF; 

01498 

2 

CALL  CRLF; 

01499 

2 

CALL  M0N3; 

01500 

2 

END 

EXITSINTESP; 

01501 

1 

01502 

1 

01503 

1 

/♦ 

01504 

I 

01505 

1 

* 

01506 

1 

♦ GENERALIZED  INPUT  ROUTINES 

01507 

1 

* 

01508 

1 

01509 

1 

♦/ 

C1510 

1 

01511 

1 

CCNSOLESREAD:  PRGCEOURE; 

01512 

2 

call  PR  INTCFARIWHAT ) ; 

01513 

2 

CALL  PRINTCFARI ' • ) ; 

01514 

2 

CALL  READ! .INPUTBUFFER) ; 

01515 

2 

IF  SPAC5I1)  = CONTZ  then 

01516 

2 

CALL  EXITSINTERP; 

01517 

2 

CCNBUFFPTR  = .SPACE; 

01518 

2 

SPACE!  SPACE + 1 ) = eOLCHAR; 

Q1519 

2 

END 

CCNSQLESREAC; 

Ci520 

1 

01521 

1 

MORESCCNSINFCT:  PROCEDURE  BYTE; 

01522 

2 

RETURN  CCN6LFFPTR  < .SPACE ( SPACE ) ; 

01523 

2 

END 

yCRESCCNUNFUT; 

01524 

1 

01525 

1 

01  526 

1 

CCNSQLES INPUT SERRCR:  PRaCEOURE ; 

01527 

2 

RC  = REREAOACCR;  /•  reset  PROGRAM  COUNTER  */ 

01528 

2 

CALL  WARN  ING( • II’); 

01529 

2 

GOTO  ERRCRiEXIT;  /*  RETURN  TO  OUTER  LEVEL  ♦/ 

C1530 

2 

END 

CONSOLE  sinpltserror; 

01531 

1 

' 

01532 

1 

01533 

1 

getsoataschar:  frccecure  byte; 

01534 

2 

DECLARE  char  EASED  3ATAAREAPTR  BYTE; 

01535 

? 

IFIOAIAAREAPTR  :=  DATAAREaoTR  -I-  1)  >=  SB  THEN 

01536 

2 

CALL  ERROR!*  00' ) ; 

01537 

2 

RETURN  CHAR; 

01538 

2 

END 

GETiOATAiCHAR ; 

C1539 

1 

Cl  540 

1 

01541 

1 

GcTtCCNSCHAR:  PPCCEDURE  BYTE; 

01542 

2 

DECLARE  CHAR  BASED  CCNBUFFPTR  BYTE; 

01543 

2 

CCNBUFFPTR  = CCNBUFFPTR  + 1; 
RETURN  CHAR; 

01544 

2 

01545 

2 

END 

GETSCONtCHAR; 

01546 

1 

01547 

1 

C1548 

1 

NEXTl INPUTSCHAB : PROCEDURE  BYTE; 

01549 

2 

IF  INPUT7YPE  = 0 THEN 

C1550 

2 

DC  forever; 

0155  1 

2 

I FISPACE!  INPUTINDEX) : = GETOISKCHAR)  = LF  THEN 

—01552 

3 

DO; 

01553 

Ol55'» 

01555 

01556 

01557 

01558 

01559 
C1560 

01561 

01562 

01563 

01564 

01565 
0 1566 

01567 

01568 
C1569 
C1570 

01571 

01572 

01573 

01574 

01575 

01576 

01577 
01573 
C1579 
C1580 

01581 

01582 

01583 

01584 

01585 
01536 

01587 

01588 
C1589 

01590 

01591 

01592 
01393 

01594 

01595 

01596 

01597 

01598 
C1599 
C1600 
01601 
01602 

01603 

01604 

01605 

01606 

01607 

01608 
C1609 
01610 
01611 
01612 

01613 

01614 

01615 

01616 

01617 

01618 


EtSE 


END; 


IF  VARSBLCCKSIZE  THEN 
CALL  ERROKI 'RE' ) ! 


RETURN  NEXTOI SKCHAR; 

END; 

IF  INPUTIYPE  = 1 THEN 

RETURN  GETCONCHAR; 

IF  INPUTIYPE  = 2 then 

RETURN  GETOATACHAR; 

END  nextjinputjcfar; 

COUNTIINPUT:  PRCCEOURE*. 

DECLARE 

HOLD  BYTE, 

CEL  IH  BYTE; 

INPUTtINCEX  = 0; 

DO  while  (HCLO  :=  NEXT$INPJT$CHAR)  = ' '; 

END; 

IF  INPUTIYPE  = 0 THEN 
infutptr  = .SPACE; 

IF  INPUTTYPE  = 1 THEN 

INPUTPTR  = CCN3UFFPTR; 

IF  INPUTTYPE  =2  then 

INPUTPTR  = OATAAREAPTR; 

IF  HOLD  <>  CUOTE  THEN 
OELIM  = • ; 

ELSE 

DO; 

DELIM  = QUOTE; 

IF  INPUTTYPE  <>  0 THEN 

INPUTPTR  = INPUTPTR  ♦ 1; 

HCLD  = NEXTSINPUTiCHAR; 

ENC; 

DO  WHILE  (HCLD  <>  OELIM)  AND  (HOLD  <>  EGLCHAR); 

INPUTINCEX  = INPUTINOEX  + 1; 

HOLC  = NEXTJINPUTSCHAR; 

END; 

IF  DELIM  = CUOTE  THEN 

DO  WHILEMHOLO  :=  NEXT  SINPUT  SCHAR)  <>  ',')  AND  (HOLD  <>  EOLCHAR) 
END; 

CALL  pushsstack; 

ENO  COUNTS  INPUT ; 

GETiSTRINGJFIELC:  PROCEDURE; 

DECLARE 

TEMP  ADDRESS, 

LNG  BASED  TEMP  BYTE; 

CALL  COUNTIINPUT; 

CALL  MCVc( INPUTPTR, (TEMP;=GETSPACE(INPUTINO£X  + 1 ) ) + I , I NPUT I NOE X) ; 

ARA  = TEMP; 

CALL  FLAG$STRING$AO0R(O) ; 

LNG  = INFUTINOEX;  /»  SET  LENGTH  IN  MEW  STRING  */ 

ENO  getistringifield; 

GETiNUMERICIFIELC:  PROCEDURE; 

CALL  COUNTIINPUT; 

CALL  FPIINPUTIINPUTINDEX, INPUTPTR); 

CALL  FPICPIRETURN(9,RA) ; 

CALL  CHECMCVERFLCW  ; 

END  GETINUMERICIFIELO; 


01619 

1 

Cl  62  0 

1 

01621 

1 

/♦ 

01622 

1 

01623 

1 

01624 

1 

* INTcRPRETl 

01625 

1 

01626 

1 

01627 

1 

*/ 

01628 

1 

C1629 

1 

C1630 

1 

INITIALI ZEIEXECUTE:  PROCEDURE 

01631 

2 

GETIPARAMETERS:  PROCEDURE 

01632 

3 

declare  pointer  adore 

01633 

3 

PARM  BASED 

01634 

3 

01635 

3 

NEXT:  PROCEDURE  ; 

C1636 

4 

POINTER=PQIN 

01637 

4 

RETURN  PARM; 

01638 

4 

ENC  NEXT; 

C1639 

3 

G1640 

3 

MCD,RC  = NEXT; 

01641 

3 

OATAAREAPTR  = (MOA  := 

01642 

3 

MPR  =NEXT ; 

01643 

3 

M3A£E,ST  = (S3  :=  NEX 

01644 

3 

RA  = (RB  :=  SB)  4; 

01645 

3 

ENO 

GETIPARAMETERS; 

01646 

2 

01647 

2 

IMTMFM:  PRCCEOURE; 

01648 

3 

declare  BASE  ADDRESS, 

01649 

3 

A BASED  HASE  ^ 

«_01650 

3 

TCP  BASED  SYSl 

:XT)  - l; 

» NRSTACk; 


184 


01651 

3 

CALL  MGVE(BUIL0T0P,.MEH08Y,MPR-. MEMORY) ; 
CALL  t- ILL(MPR,0,M9ASE-MPR)  : 

01652 

3 

01653 

3 

OASE=ST; 

0l65'» 

3 

a=tcp-6  ; 

01655 

3 

A(  1 ) ,A(2  1 = 0 : 

01656 

3 

3ASe=A ; 

01657 

3 

A = c; 

01656 

3 

A(  1 ) = ST  ; 

C1659 

3 

END  initmem: 

01660 

2 

01661 

2 

01662 

2 

CALL  GETJPARAMETERS; 

01663 

2 

CALL  initmem: 

CALL  El  LU -P IlES.O, T!MES6(NUMF ILES) ) ; 

01666 

2 

01665 

2 

CALL  CLEARSPRlNTteUFF; 

01666 

2 

END  INITIAL  lEEJEXECUTES 

C1667 

1 

01668 

1 

01659 

1 

/*  At***  executive  RGUriNE  STARTS  HERE  *****  */ 

C1670 

1 

/* 

01671 

1 

*************4**4*******:***-*4c****************  *********** 

01672 

1 

* * 

01673 

1 

******************************************************** 

01676 

1 

*/ 

01675 

1 

EXECUTE:  PRCCECURE; 

01676 

2 

OG  FOREVER; 

01677 

2 

IF  ROLIC.l)  THEN  /*  MUST  BE  LIT  OR  LIT-LGO*/ 

01678 

3 

DO: 

01679 

3 

call  PLSHSSTAC.C 

C1680 

6 

eRA=C(l);  /*  LOAD  IN  REVERSE  ORDER  *7 

01681 

6 

BRA ( 1) = C AND  3FH: 

01682 

6 

IF  RGL(C,2)  THEN  CALL  LOADiRA:  /»LIT-LOD*/ 

CALL  step*ins$cnt: 

01683 

6 

01686 

6 

end; 

01685 

3 

else 

01686 

3 

DO  CASE  C; 

01687 

3 

01688 

3 

/*0  FAD:  R8  = RA+  RB  */ 

01689 

3 

CALL  T'RCJVALUESGPSIFADO)  ; 

C1690 

6 

01691 

6 

/»1  FMI  Rd  = R6-RA;  */ 

01692 

6 

DO; 

01693 

6 

CALL  flip; 

01696 

5 

CALL  TWCiVALUEtOPSIFSUa)  ; 

01695 

5 

END; 

01696 

6 

C1697 

6 

/*2  PMU  RB-=  RA*R8  */ 

01693 

6 

CALL  T'*C$VALUE$CPSIFMUL)  ; 

01699 

6 

C1700 

6 

/*3  FDI  RE  = RA/R8  »/ 

01701 

6 

o 

o 

01  702 

6 

IF  RASZERO  THEN 

01703 

5 

CALL  WARNINGCOZ'  ) ; 

01706 

5 

CALL  FLIP: 

01705 

5 

CALL  TWOSVALUESOPSIFDIV) ; 

Cl  706 

5 

END; 

01707 

6 

01708 

6 

/*6  EXP  RA=RB**RA  *! 

Cl  709 

6 

o 

o 

C1710 

6 

IF  RBSZERO  THEN 

01711 

5 

CALL  CGMPSFIX(RAiZERO)  ; 

01712 

5 

ELSE 

01713 

5 

IF  R3JNEGATIVE  THEN 

01716 

5 

CALL  ERROR! 'NE' ) ; 

01715 

5 

ELSE 

01  716 

5 

DO; 

01717 

5 

CALL  FPSOPIFLOO.RB) ; 

C1718 

6 

CALL  FPSCP (LOG.O) \ 

01719 

6 

call  FPJCP  1 FMIJL  , RA  ) : 

C1720 

6 

call  FPiOPtRETURNlEXP.RB ) ; 

01721 

6 

CALL  POP$STAC.<: 

01722 

6 

CALL  CHECRiOVERFLCW; 

01723 

6 

END; 

01726 

5 

END; 

01725 

6 

01726 

6 

/♦  5 LSS,  LESS  THEN  */ 

CALL  CCMPSFI X(CCMPARESFP=1 1 : 

01727 

6 

C1728 

6 

01729 

6 

/*  6 GTR,  GREATER  TfEN  ♦/ 

01730 

6 

CALL  CCPP$FIXICCMPARESFP=2); 

01731 

6 

01732 

6 

/*  7 EQU,  EQUAL  TO  *f 

01733 

6 

CALL  CCMP$FIX(CCMPARE$FP  = 3)  : 

01736 

6 

01735 

6 

/*  8 NEQt  NOT  equal  TO  */ 

01  736 

6 

CALL  CCMPSFI X(NCT1C0MPARE$FP=3) ) ; 

01737 

6 

01  738 

6 

/*  9 GEQ,  GREATER  THEN  GR  EQUAL  TO  */ 

C1739 

6 

CALL  CCMPSFiX(MCT(CaMPARESFP  = ll  ) ; 

C1760 

6 

01761 

6 

/♦lO  LEQf  LESS  THEN  OR  F3UAL  TO  */ 

01762 

6 

CALL  CCMPtFIX(NCTlCCMPAR£$FP=»2)  ) ; 

01  763 

6 

01  766 

6 

/♦ll  NOT*/ 

01765 

6 

CALL  LCGICAL(O); 

01  766 

6 

.^1  767 

6 

/*12  AND*/ 

1 


i 

i 

j 

! 


J 

1 

j 

1 
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CALL  LCGICAL(l) 


017A8 
01  7A‘J 
C1750 

01751 

01752 

01753 

01754 
C1755 
01  756 
01757 
C1758 
01  759 

01760 

01761 

01762 

01763 

01764 
01  765 
C1766 
01767 
Cl  768 
C1769 
C1770 

01771 

01772 

01773 

01774 

01775 

01776 

01777 


/*13  eOR  ♦/ 

CALL  LCGICALIZI; 


/♦  14  LOO*/ 


CALL  loaosra; 


/*  15  STO  */ 

00: 


tNO; 


CALL  ST0R£(0)  ; 
CALL  MQVESRASRB; 
CALL  POPtSTACK; 


/*  16  XIT  ♦/ 

RETURN; 


/*  17  OcL  */ 

CALL  pcpsstack; 


/•  13  CUP  */ 

DO ; 

CALL  push$stacil; 
CALL  MCVE$RB$RA; 

ENO; 


/*  19  XCH  */ 

CALL  FLIP; 


1 

01778 

4 

/* 

20 

STO  */ 

01  779 

4 

DO; 

01780 

4 

CALL  STORE (01 ; 

01781 

5 

CALL  PQPtSTACK; 

01  732 

5 

CALL  POPiSTACK; 

01783 

5 

ENO; 

01784 

4 

01  785 

4 

/♦ 

21 

SLT  */ 

01  786 

4 

CALL 

ccmp$fix(compare$string  = 1): 

01787 

4 

01  738 

4 

/* 

22 

SGT  */ 

01789 

4 

CALL 

CCMP$FIX(COMPARE$STRING  = 2); 

C1790 

4 

01791 

4 

/* 

23 

SEQ  */ 

01792 

4 

CALL 

CCMP1FIX(CCMPARE$STRING  = 3); 

01  793 

4 

01794 

4 

/* 

24 

SNE  */ 

01795 

4 

CALL 

CCMP$FIX(NOT(COMPARESSTRING  = 

3) ) ; 

01796 

4 

01797 

4 

/♦ 

25 

SGE  */ 

01  798 

4 

CALL 

CCMPiFI X(NOT(COMPARESSTRiMG  = 

1 n : 

V 

01799 

4 

/* 

26 

SLE  */ 

C1800 

4 

CALL 

CCMP$FIX(NCT(CO.MPARE$STRING  = 

2)) ; 

01801 

4 

01802 

4 

/* 

27 

STS  ♦/ 

01803 

4 

DO; 

01804 

4 

CALL  STCP.E(l); 

; 

01805 

5 

CALL  POPiSTACK; 

01806 

5 

CALL  POPiSTACK; 

j 

01807 

5 

ENO; 

01803 

4 

C1809 

4 

/* 

28 

ILS  ♦/ 

i 

C1810 

4 

DO ; 

01811 
01812 
01813 
0181  4 

01815 

01816 


END; 


CALL  PUSHiSTACK; 

CALL  STEP5 IMSSCNT; 

RC  = (ARA  :=  RC ) + C; 

CALL  FLAGSSTRlNG$ADOR(FALSE); 


01817 

4 

/* 

29 

CAT  */ 

01318 

4 

CALL 

01819 

4 

/* 

30 

PRO  */ 

C1820 

01821 

01822 

C1823 

01324 

01825 

01826 
01827 
0182  8 
C1829 

01830 

01831 

01832 

01833 

01834 
C1635 
01836 
01  637 
01838 
C1839 
Cl  640 

01841 

01842 

01843 
.01844 


00; 


END; 


CALL  STEPtINSSCNT; 
CALL  PUSHiSTACK: 

ARA  = RC  ♦ 2: 

RC  = THCBYTEOPRANO; 


/*  31  RTN  */ 
DO; 


END; 


RC  = ARA  - l; 
CALL  POPiSTACK; 


/*32  ROW,  CALCULATES  SPACE  REQUIREMENTS  FOR  ARRAYS*/ 
CALL  CALCSROW; 


/»  33,  SUB  ♦/ 

/*  SUB, CALCULATES  SUBSCRIPT  ADDRESSES  */ 
CALL  CALCiSUB; 


/*  RCV  REACS  A NUMBER  FROM  THE  CONSOLE  •/ 
OO  ; 

IF  NCT  MORE iCONt I NPUT  THEN 

CALL  CONSCLEilNPUTtERROR : 
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"01845  5 

01846  5 

01847  4 

01848  4 

01849  4 

C1850  4 

01851  5 

01852  5 

01853  5 

01854  4 

01855  4 

01850  4 

01857  4 

01858  5 

C1859  5 

C1860  5 

01861  4 

01862  4 

01863  4 

01864  4 

01865  4 

01866  5 

01867  5 

01868  5 

C1869  4 

01870  4 

01871  4 

01872  4 

01873  4 

01874  5 

C1875  5 

01876  4 

01877  4 

01878  4 

C1879  4 

C1880  4 

01881  4 

01882  4 

01883  4 

01884  6 

01835  6 

C1886  6 

01887  6 

01888  6 

(1889  5 

01890  5 

01891  5 

01892  5 

01893  5 

C1894  4 

C1895  4 

01896  4 

01897  4 

01898  5 

Cl  899  5 

Cl  900  4 

01901  4 

01902  4 

01903  4 

01904  5 

01905  5 

C1906  4 

01907  4 

01908  4 

C1909  4 

C1910  4 

01911  4 

01912  4 

01913  4 

01914  4 

01915  4 

01916  4 

01917  4 

01918  4 

C1919  4 

Cl  920  5 

01921  5 

01922  5 

01923  5 

01924  4 

01925  4 

01926  4 

01927  4 

01928  4 

C1929  4 

C1930  4 

01931  4 

01932  4 

01933  4 

01934  5 

01935  5 

01936  5 

01937  4 

01938  4 

C1939  4 

C1940  4 

01941  4 

_01942  4 


CALL  GETSMOMtR ICSFIELD; 

ENO: 

/*  35,  WRV  : PRINTS  THE  NUMOER  ON  THE  TOP  OF  THE  STACK  •/ 

DO: 

CALL  NUMERICSOUT; 

CALL  WR  I rElTOSCONSOLE ; 

CALL  POPSSTACK; 

END; 

/•  36  WST:  PRINTS  THE  STRING  WHOSE  ADDRESS  IS  ON  TOPOF  TFE  STACK*/ 
00; 

CALL  WRITESTOSCONSOLE; 

CALL  stringjfree; 

CALL  POPiSTACK; 

END; 

/*  37,  RRF  */ 

/•  RRF  - PROCEDURE  TO  READY  A RANDOM  BLOCK  */ 

00; 

CALL  SETUPtOISKJIO; 

CALL  RAN0QV5SETUP; 

CALL  SET$ECF$STACK; 

end; 

/♦  38,  RD8  */ 

/*  R08  - RE/CY  NEXT  SEQUENTIAL  BLOCK  */ 

00; 

CALL  SETUPSOISKJIO; 

CALL  set$eof$siack; 

end; 

/*  39,  ECR  */ 

IF  MORE$CON$INPUT  THEN 

CALL  CCNSQLc$INPUT$£RROR: 

/*  4C,  OUT  */ 

DO; 

OUTPUT;  PROCEOUREIPORT, VALUE) ; 

DECLARE 

PORT  BYTE, 

VALUE  BYTE; 

GOTO  portout; 

ENO  OUTPUT; 

CALL  OUTPUT! BRA, 8RB)  ; 

CALL  popjstack; 

CALL  POPSSTACK; 

END: 

/*4l  RDN  - READ  A NUMBER  FROM  DISK*/ 

DO  ; 

INPUTTYPS  = 0; 

CALL  get$numeric$field: 

END; 

/*42  ROS  - READ  A STRING  FROM  DISK*/ 

DO  : 

inputtype  = o; 

CALL  getsstringsfielo: 

end: 

/*43  WRN  WRITE  A NUMBER  TO  DISK*/ 

CALL  WRITEiTCIFILEIO); 

/*44  WRS  - WRITE  A STRING  TO  DISK  */ 

CALL  WRITE$TO$FILE! 1 ) ; 

/*  45,  OPN  */ 

/*OPN:  PROCEDURE  TO  CREATE  FOBS  FOR  ALL  INPUT  FILES  */ 

CALL  oisksopen; 

/*  46  CON  */ 

DO; 

CALL  PUSHISTACK; 

CALL  STEP5INS5CNT; 

CALL  M0VE4(TWC3YTEQPRAND,RA1 ; 

CALL  STEPilNSSCNT; 

END: 

/*  47,  RST:  PUTS  POINTER  TO  THE  BEGINNING  OF  THE  DATA  AREA*/ 
CATAAREAPTR  = MOA  - 1: 

/*48  NEG,  NEGATIVE  */ 

CALL  CNE$VALUEtCPS(FCHS); 

/*  49  , RES  : READ  STRING  */ 

DO; 

IF  NCT  MORESCONSINPUT  THEN 

CALL  CONSOLE tlNPUTiSSROR; 

CALL  GcTiSTRINGSF I ELO : 

ENO; 

/*  50  NOP  */ 

t 

/•  51  OAT  */ 
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^1943 

4 

4 

/» 

52 

O0F  ♦/ 

019'.5 

4 

CALL  OLMPPRI NTBUFF; 

01946 

4 

01947 

4 

/♦ 

53 

NSP  */ 

C1948 

4 

00; 

Cl  949 

4 

CECLARE  I BYTE, 

C1950 

5 

POSITION  OATAITABPOSl , TABP0S2 , TA8P0 S3 , TAB P0S4 

01951 

5 

PRINTBUFFENO) ; 

01952 

5 

1=0; 

01953 

5 

DC  WHILE  PRINTBUFFER  > POSITIONlIl; 

01954 

5 

I = I * l; 

01955 

6 

ENC; 

C1956 

5 

IF  I = 4 THEN 

01957 

5 

call  OUMPiPRINTteUFF; 

01958 

5 

ELSE 

C1959 

5 

PRINTBUFFER  = POSITIONlIl; 

C1960 

5 

END; 

01961 

4 

01962 

4 

/» 

54 

8RS  */ 

01963 

4 

CALL  absolutesbranch; 

01964 

4 

C1965 

4 

/* 

55 

3RC  */ 

C1966 

4 

00; 

01967 

4 

IF  RASZERO  THEM 

01968 

5 

CALL  ABSOLUTESBRANCH; 

C1969 

5 

ELSE 

C1970 

5 

RC  = RC  + 1 + i; 

01971 

5 

CALL  POPSSTACK; 

019/2 

5 

ENO; 

01973 

4 

01974 

4 

/♦ 

56 

BFC  */ 

01975 

4 

CALL  CCN0S3RANCH; 

C1976 

4 

01977 

4 

/* 

57 

BFN  */ 

01978 

4 

CALL  UNCONOSBRANCH; 

C1979 

4 

C1930 

4 

/* 

5£ 

CBA  */ 

01981 

4 

CALL  CCNVSTOSBINARYIRA) ; 

01902 

4 

01983 

4 

/* 

59 

RCN  */ 

01984 

4 

00; 

01  985 

4 

UPUTTYPE  = l; 

01936 

5 

REREAOAOOR  = RC; 

01937 

5 

CALL  CCNSOLESREAO; 

01988 

5 

END; 

Cl  989 

4 

C1990 

4 

60 

CRS  READ  STRING  FROM  DATA  AREA  */ 

01991 

4 

DO; 

01992 

4 

inputtype  = 2; 

01993 

5 

CALL  GETSSTRINGSFIcLO; 

01994 

C1995 

01996 

5 

end; 

4 

4 

/* 

61 

ORF  READ  F/P  NUMBER  FROM  DATA  AREA  */ 

01997 

4 

00; 

01998 

4 

INPUTTYPE  =•  2; 

01999 

5 

call  GETSNUMERIC iFIELO; 

C2000 

5 

END; 

02  001 

4 

02002 

4 

/*62  e08  - END  OF  RECOAO  FOR  ScAO*/ 

02003 

4 

ADVANCES  TC  NEXT  LINE  FEED*/ 

02  004 

4 

DO  ; 

0200  5 

4 

IF  VARS0LOCKSSIZE  THEN 

02006 

5 

DO  while  GETSOISKSCHAR  O LF; 

02007 

5 

end; 

02008 

5 

CALL  stcresrecsptr; 

02  009 

5 

end; 

02010 

4 

02011 

4 

/’»63  EOW  - ENO  OF  RECORD  FOR  WRITE*/ 

02012 

4 

DO; 

02013 

4 

IF  VARS8L0CKSSIZE  THEN 

02  014 

5 

DO  while  3YTE3SKR ITTEN  < (BLOCKSIZE  - 2); 

02015 

5 

call  WRI  TESAIBYTEI ' • ) i 

02016 

6 

END; 

02017 

5 

CALL  WR  ITESASCYTE (CH 1 ; 

02018 

5 

CALL  WRITE iASBYTElLFI ; 

C2C19 

5 

CALL  STCRE SRECSPTR ; 

C2  020 

5 

end; 

02021 

4 

/*64  CLS  - CLCSe  A file*/ 

02022 

4 

00 ; 

02023 

4 

CALL  SETSFILESAOOR; 

02024 

5 

CALL  DISKSCLQSE; 

0202  5 

5 

F ILESIBRA)  = O: 

C2026 

5 

ecfbeanchi ERA)  = o; 

02027 

5 

CALL  POPiSrACX: 

C2  02  8 

5 

END; 

C2C29 

4 

C2030 

4 

/* 

65 

absolute  »/ 

02031 

4 

BRAID  = ERA  (1)  AND  7FH; 

02032 

4 

02033 

4 

/• 

66 

INTEGER  «/ 

02034 

4 

00; 

02C35 

4 

CALL  CONYSTOSPI'IARYIRA)  ; 

02036 

5 

CALL  CONVSTOSFPIRA) ; 

02C3  7 

5 

END; 

1^32038 

4 
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ttauuaflaiHiliiiltiK 


,02039 

C2CA0 

02041 

02042 

02043 

02044 

02045 
02  046 
02047 
02043 
C2C49 
C2050 

02051 

02052 

02053 

02054 
C2C55 

02056 

02057 

02058 

02059 
C2C60 
02C61 
02062 
02063 
02C64 

02065 

02066 
02067 

02063 
C2C69 
C2C7C 
02071 
02C72 
C2073 
02  074 

02075 

02076 

02077 
02  078 
02079 
C2C80 
02081 
02082 
02083 

02064 

02085 

02086 
02C87 
02  03  8 
02C89 
C2090 

02091 

02092 
02  09  3 
02  094 
02  095 
C2C96 
02  097 
02098 
C2C99 
02  100 
02101 
02102 
02  103 

02104 

02105 

02106 

02107 

02108 
02  109 
02110 
02111 
02112 

02113 

02114 

02115 

02116 
02117 
02113 
02119 
02  120 
02121 
02122 
02  123 
02  124 
02  125 
02  126 
02127 
02  12  8 
02  129 

02130 

02131 
02  132 
02  133 
02  134 
02135 

-02136 


4 

4 

4 

5 

5 

6 
6 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
4 

4 

5 
5 
5 
5 
5 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 

5 

6 
5 
5 
5 
4 
4 
4 
4 
4 
4 

4 

5 
5 
4 
4 
4 

4 

5 
5 
4 
4 
4 
4 
4 
4 

4 

5 

5 
4 
4 
4 

4 

6 
6 
6 
6 

5 
5 
5 
5 
5 


/4  67  RANOCM  NtMBER  CErjERATOR  */ 

00; 

DECLARE  5EEO  BASED  SEEDuOC  ADDRESS, 
SCALE  DATA  ('JOr!,  yrH.OFFH.OJ  ; 
RAADCM:  PROCEDURE; 

GOTO  RANDOMLOC; 

E\C  RANCOR; 

CALL  ranoon; 

CALL  PUSHSSTACK; 

CALL  M0VE4 (. scale ,RA)  ; 

CALL  PJSHiSTACK; 

CALL  FLOAT  $ADDR( SEEO) ; 

CALL  TROiVALUEiOPS(FOIV); 

END; 

/*  68  SGN  »/ 

DO ; 

DECLARE  FLAG  BYTE; 

FLAG  = RASNEGATIVE; 

CALL  COMPSf IXtNOT  RAilBRO)  ; 

IF  FLAG  THEN 

CALL  QNESVALUEiOPS (FCHS) ; 

END; 

/*  69  SINE  */ 

CALL  QNESVALUEiOPSISIN) ; 

/«  70  COSINE  ♦/ 

CALL  CNEtVALUESGPSICOS)  ; 

/*  71  ARCTANGENT  */ 

CALL  CN£$VALU£$CPS(ATAN1 ; 

/<■  72  TANGENT  */ 

DO  ; 

CALL  PUSHSSTACK; 

CALL  MOVEARBSRA; 

CALL  ONE$'/ALUESGPS(  SIN)  ; 

CALL  POPiSfACK; 

CALL  ONESVAlUESOPSICOS) ; 

CALL  PlJSHSSTACK; 

IF  RBiZERO  THEN 

CALL  ERROR! • TZ' ) ; 

CALL  TROiVALUESOPSlrOIV)  ; 

END; 

/*  73  SOUARERCOT  «/ 

CALL  CNE$VALUESOPS(SQRT)  ; 


/*  74  TAB  ♦/ 

DO; 

CALL  RCUNDiCONVSBIN; 

IF  (ARA  :=  ARA  - 1)  >=  PRINTBUFFER  THEN 
CALL  OUHPiPRINTSeUFF; 

DO  WHILE  ARA  > PRINTaUFFLcNGTH; 

ARA  = ARA  - PRINTBUFFLENGTH; 

end; 

PRINTBUFFER  = ARA  + PR  I NT 3U FF ER LOC ; 

CALL  pcpsstack; 

END; 

/•  75  EXPCNENTATICN  */ 

call  cn£svalue$cps(Exp)  ; 

/•  76  FREE  AREA  IN  FSA 
OU; 

CALL  PUSHSSTACK; 

CALL  FLOATiAOORlAVAILABLEIO) ) ; 

END; 

/•  77  IRN  */ 

DC; 

declare  SEEO  BASED  SEEOLOC  ADDRESS; 
SEEO  = ARA; 

END; 

/•  73  LOG  */ 

CALL  ONEiVALUE$OPS(LQG) ; 


/*  79  POSITICN  CF  PRINT  BUFFER  PTR  •/ 

DO; 

CALL  PUSHiSTACK; 

CALL  FLOATSAOOR! PRINTBUFFER  - P R INT BUF F ERL OC 

END; 


/*  80  IMP  ♦/ 
DO; 


INPUT:  PROCEDURE!. JRT) 
DECLARE 

PORT  BYTE 
GOTO  portin; 

END  INPUT; 


BYTE; 


BRAISI  = INPUTIBRA); 
ERA!2I  = O; 

ARA  = 0; 

CALL  CCNVITQSFPIRA) ; 
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tsa 


02137 
02  138 
02139 
C2190 

02141 

02142 

02143 
02  144 
02145 
02  14* 
02147 
02  148 
C2  149 
C2150 

02151 

02152 

02153 

02154 

02155 

02156 

02157 
02  158 
C2  159 
C2160 
02161 
02  162 
02  163 
02164 
02  16  5 
02166 
02167 
02163 
C2169 

02170 

02171 

02172 
02  173 

02174 

02175 
C2176 
02177 
02  173 
02179 
C2180 
02  181 
02182 
02  10  3 
02184 
C213  5 
C2186 
02137 
02188 
02189 
C2190 
02191 
C2192 

02193 

02194 
C2  19  5 

02196 

02197 
C2198 
C2199 
C2200 
02  201 
02  202 
02  203 
02  204 
32  20  5 
02206 

02207 

02208 
C2209 
02210 
02211 
02212 

02213 

02214 

02215 

02216 

02217 

02218 
C2219 
02220 
02221 
02222 

02223 

02224 

02225 

02226 
02  22  7 
02228 
C2229 
C2230 

02231 

02232 
_J2233 


5 

4 

4 

4 

4 

5 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
4 

4 

5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
4 
4 
4 
4 

4 

5 
5 
4 
4 
4 
4 
4 
3 
3 
2 
2 
2 
2 


ENO; 

/•  81  ASCI  1 CCNVERSI CM  */ 

DO: 

CECL4RE  HOLD  ADDRESS, 

H BASED  HOLD  BYTE; 

IF  (HOLD  :=  ARA)  = 0 OR  H = 0 THEN 
CALL  ERROR( • AC  1 ; 

HOLD  = HOLD  > l; 

°RA(3)  = h: 

call  STRIMOiFREE: 

call  fill(ra,o,3>: 

CALL  CCHVtTU$FP(RA)  ; 

END; 

/*  82  CHR  CCNVERTS  to  ASCII  */ 

DO; 

DECLARE  HOLD  ADDRESS, 

LOC  BASED  HOLD  BYTE; 

CALL  CONV$TOiBIM$AOOR: 

HCLO  = G£TSPACE(2»; 

LCC  = l; 

LCC(l)  = 6RA; 

ARA  = HOLD; 

CALL  FLAGSTRIMGAOOR(TRUE  ) : 

END; 

/*  83  LEFT  ENO  OF  STRING 

CALL  STRINGSSEGMENT(O)  ; 

/*  84  LENGTH  OF  STRING  */ 

CALL  FLOATtAOOR(G£TiSTRING$LEM(ARAn  ; 

/♦  85  .MIDDLE  CF  STRING  */ 

CALL  STSI.NGJSEGMENT(2)  ; 

/*  86  RIGHT  ENC  OF  STRING  */ 

CALL  STRINGSSEGMENTU  ) ; 

87  CG.NVERSICN  TO  STRING  */ 

00; 

CALL  NUMERICSOUT; 

CALL  MCV£(.?RINTWO.kKAREA,ARA  : = 

GETSPACEIPRINTWORKAREA  + 1 1 , PR  INT  WCRKA  RE  A IJ 

end; 

/*  88  VALUE  */ 

CALL  FPiINPUT(GETiSTRING$LEN(ARA) ,ARA+l)  ; 

/*  89  COSH  »/ 

CALL  CNEtVALUe$OPS(COSHl ; 

/=»  9C  SINH  ♦/ 

CALL  ONESVALUESCPSISINH)  ; 

/*  91  RON  */ 

CALL  RCUNOiCONVlSIN; 

/*  92  CKO 

/=!<  RA  CONTAINS  MAX  NUMBER  OF  LABELS  IN  THE  ON  STATE.MENT 
SB  CONTAINS  SELECTED  LABEL. 

CHECK  TO  INSURE  SELECTED  LABEL  EXISTS.  IF  NOT  AN  ERROR 
HAS  OCCURED  */ 

00  ; 

IF  (BRB  :=  3R8  - U > BRA  - 1 THEN 
CALL  ERROR('OI'); 

CALL  pcpistagk; 

ARA  = (ARA  * 3)  + l; 

END; 

/*  S3  exR  */ 

CALL  LOGICAL (3)  ; 


/♦  94  OEF  ♦/ 

DO; 

call  STEPSINSSCNT; 

EOFBRANCHl  GETSrILESNU.MBER)  = T WOB YTEOPRAND 1 
CALL  STEPilNSSCNT; 

END: 


/*  S5  BOL  ♦/ 

DO : 

CURRENTLINE  = ARA; 
call  POPSSIACK; 

end; 

/•  96  AOJ  •/ 

ARA  = 4RA  + MCO; 

end:  /*  END  CASE  »/ 

CALL  STEPIINSJCNT  ; 

ENO;  /A  CF  DO  FCREVER  */ 


ENO  exECLTE ; 


19  0 


I /♦ 

1 
1 
1 

I */ 

I 

1 MAINLINE: 

I CALL  crlf: 

1 CALL  IN  ITIALIZESEXeCUTE ; 

1 EQFEXIT:  /♦  CN  EMO  OF  FILE  OF  CURRENT  DISK  FILE  COME  HERE  ♦/ 

1 ERRORSEXir:  /*  REGROUP  ON  CONSOLE  INPUT  ERROR  */ 

1 CALL  EXECUTE: 

I CALL  EXITSIMERP; 

1 EOF 
NO  PROGRAM  ERRORS 


I)  ' 


359 ENO  JOB  3ASICI  END  JOB  BASICI  END  JOB  BASICI  END  JOB  6ASIC1  

359 ENO  jca  BASICI  END  JOB  BASICI  ENO  JOB  BASICI  END  JOB  BASICI  


I 


t 


* * 


0223A 

02235 

02236 

02237 

02238 
C2239 
C2240 
02  24  1 

02242 

02243 

02244 
02  24  5 

02246 

02247 
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